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ABSTRACT 


In this thesis we have discovered homomorphic images of several progen- 
ibore suchas Bos 2°s(S27)e 3a) sO ee SOS 9) 5s Ag 82), 
and 11*!? :,, L(11). We give isomorphism types of each image that we have found. 
We then create a monomial representation of L2(11) by lifting 5:11 onto it. 

We manually perform Double Coset Enumeration of 3:(2xS5) over Dj2 
to create its Cayley graph. This is achieved by solving many word problems. The 
Cayley graph is used to find a permutation representation of 3:(2S5). We also 
perform Double Coset Enumeration $3 x As over 15:2 and 10:2, where 15:2 is a 
maximal subgroup containing 10:2. 

Finally, a code based algorithm is included that solves all of the word 
problems used to perform Double Coset Enumeration of [2(25) over S5:2 and 


Double Coset Enumeration of (A5)?:2 over As:2. 
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Introduction 


In group theory it is often necessary to prove that a finite image of a 
progenitor is isomorphic to a permutation group. To do this we perform double 
coset enumeration of the image over a transitive subgroup. However, this process 
requires solving many right coset relations between words, which is a formidable 
task. It is very difficult to determine whether a given word is the identity. In 
the area of combinatorial group theory, the word problem for a finitely generated 
group G is the algorithmic problem of deciding whether two words in the generators 
represent the same element. There does not exist an algorithm to give relations 
between words for an arbitrary finitely generated group [Coll86]. However, there 
do exist algorithms to establish relationships between all words of some types of 
groups [Khar13]. We have given an original algorithm, to give all relations between 
all words, for a large number of groups. 

Our constructions of the homomorphic images of the progenitors that we 
have presented in this thesis are based on our technique of manual double coset 


enumeration. We provide a background to this below. 


Symmetric Generation 


A progenitor is the semi-direct product m*” : N, where m*” represents 
a free product of n copies of the cyclic group Z,, m being the order of t;, and 
N is a group of automorphisms of m*” which permutes the n cyclic subgroups by 
conjugation. Thus, for n € N, we have t? = tj, where r is an integer coprime 
to m. When m = 2, N acts by conjugation as permutations of the n involutory 
symmetric generators. Now, the above elements of N can be gathered on the left, 
every element of the progenitor can be represented as nw, where n € N and w isa 
word in the symmetric generators. Thus any additional relation by which we must 


factor the progenitor to obtain a finite image G must have the form nw(ty, ta, .., tn), 


m*":N 
N1W1,-.,NsWs 


where n € N and w is a word in T = {tj,t,...,tn}. The group may 


be identified. 
Double Coset Enumeration 


Assume G = Pe The double coset NwWN is given by NwN = 
{Nwn|n € N} ={Nnn-!wn|n € N} = {ne N: Nw” = Nw}, where w is a word 
in the symmetric generator. Since G is finite, G may be decomposed as a union of 
double cosets G = U_, Nw; N. 

Define N‘ = Cy(ti); NY = Cn((ti,t;)), etc., single point and two point 


”), of N is given 


stabilizers in N respectively. The coset stabilizing subgroup, N‘ 
by, N™) = {n € N|Nwn = Nw} = {n € N|Nnn-!wn} = {n € N|Nw” = Nu}, 
where w is a word in the symmetric generators. Clearly NY < N“), 

In order to obtain the index of N in G we shall perform a manual double 
coset enumeration on G over N; thus we must find all of the double cosets [w] 


and work out how many single cosets each of them contains. We shall know that 


we have completed the double coset enumeration when the set of right cosets 


obtained is closed under right multiplication. Moreover, the completion test above 
is best performed by obtaining the orbits of N(™) on the symmetric generators. 
We need only identify, for each [w], the double coset to which Nwt; belongs for 
one symmetric generator ¢t; from each orbit. 

Finding isomorphism types serves two purposes in this thesis, first it helps 
to classify the groups, and secondly it is a necessary step in the construction of 
finite images of progenitors. In|chapter I] we find the isomorphism type of several 
transitive groups in order to classify them. In|chapter 3|we find isomorphism types 
of the permutation groups used to construct the progenitors. In order to start the 
process, a transitive group N generated by a set of permutations on the set X = { 
1, 2,... n } is required, where n is a natural number. 

In|chapter 4]and {chapter 5] we solve numerous word problems in order to 
perform double coset enumeration on 3:(2xS5) over Dy2, L2(5) over S5, S3x As 
over 15:2 and 10:2, and (As)?:2 over As:2. 

In [section 4.3] we assign a numeric label in order to find isomorphic per- 
mutations to the generators of the group G. To achieve this, every right coset will 
be multiplied by the generators of the group N. These products must be proven 
to be one of the right cosets in order to assign it a label. The mapping of the 
labeling of cosets to the labeling of the products is a permutation corresponding 
to the generator. To prove that the image is isomorphic to a permutation group, 
the mapping of the relations to elements of the permutation group must be shown 
to have equivalent properties to the relations of the image. 

Finally, in [chapter 6] we explore an algorithm that can be used to solve 


double coset enumeration relation word problems. This algorithm is used to prove 


all word problems for L2(5) over Ss, (A5)?:2 over As : 2. A MAGMA implemen- 
tation of the algorithm can be found in [Appendix G| 


Chapter 1 


Isomorphic Types 


1.1 Definitions and Theorems 


Definition 1.1. Definition 1.1.4. (Semigroup) A semigroup (G,*) is a 


nonempty set G equipped with an associative operation *. [Rot95] 


Definition 1.2. Definition 1.1.6. (Group). A group is a semigroup G con- 
taining an element e such that 
(i) exa=a=axe foralacG 


(ii) for every a € G, there is an element b € G with axb =e = ba. [Rot95] 


Definition 1.3. A subgroup K < G is a normal subgroup,denoted by k IG, if 


gKg'! =K for every g € G. [Rot95] 


Definition 1.4. Definition 1.1.7. (Order) If G is a group, then the order of 


G, dentoted |G], is the number of elements in G. [Rot95| 


Definition 1.5. Definition 1.1.5. (Symmetric Group) The symmetric group, 
denoted S', or Sx is the set of all permutations of the nonempty set X = {1,2,...,n}. 


S;, is a group of order n! on n letters. [Rot95] 


Definition 1.1.31. (semi-direct product) A group G is a semi-direct prod- 
uct of K by Q, denoted by G = K:Q, if K < G and K has a complement Qi= Q. 


One also says that G splits over K. [Rot95] 


Definition 1.1.29. (direct product) If H and K are groups, then their direct 
product, denoted by H x K, is the group with elements all ordered pairs (h,k), 
whereh € Handk € K, and with the operation (h,k)(h’,k’)=(hh’,kk’). [Rot95] 


Definition 1.1.8. (Free Group) /f X is a subset of a group F,, then F is a free 
group with basis X if, for every group G and every function f : X — G, there 


exists a unique homomorphism yp: F > G extending f. [Rot95] 


Definition 1.6. Let F be a field and G group. Then a presentation or G is a 


homomorphism p: G— GL(n, F) for some integer n. [Isaa76] 


Definition 1.1.1. (Permutation) Jf X is a nonempty set, a permutation is 


the bijective mapping a: X + X. [Rot95] 


Definition 1.1.19. (homomorphism) Let (G,*) and (H,o) be groups. A func- 
tion f:G— is a homomorphism if, for all a, b © G, f(a*b) = f(a) o f(b). [Rot95] 


Definition 1.1.20. An isomorphism is a homomorphism that is also a bijection. 
We say that G is isomorphic to H, denoted G = H, if there exists an isomorphism 


[£:G— H. [Rot95] 


Theorem 1.7. Theorem 1.1.25. (Third Isomorphism Theorem) Let K<H<G, 
where both K and H are normal subgroups of G. Then H/K is a normal subgroup 
of G/K and (G/K)(H/K) © G/H. [Rot95] 


1.2 46:11 


Notation: if x is a word in a presentation of a group and the corresponding 
permutation is xx then we express this by writing x ~ xx. 

Given a group N, we demonstrate our method of finding the isomorphism 
type of N. We give the following example to illustrate the process. 

Let N = (x,y), where x = (1, 20, 9, 35, 42, 8, 32, 33, 38, 46, 15)(2, 19, 
10,-36,:41, 7,,31, 34, 37, 45, 16)(3; 23,18, 5,27, 25; 22; 13, 43, 11,40), 24,17, 
6, 28, 26, 21, 14, 44, 12, 39) and y = (1, 36, 4, 25, 8, 5, 15, 11, 32, 23, 17, 2, 35, 
3, 26, 7, 6, 16, 12, 31, 24, 18)(9, 41, 20, 37, 39, 30, 33, 13, 21, 27, 44, 10, 42, 19, 


38, 40, 29, 34, 14, 22, 28, 43)(45, 46). We note that N < Syg. It is given that || 


= 506. 

We use MAGMA to compute the normal lattice of N and summarize the 
information in the following diagram in which every group is a normal subgroup 
of all the groups that it is connected by one or more upward lines. Each vertex of 


the diagram is labeled by the order of the normal subgroup. 


| NL5 | = 253 = 
|NL3| = a |NL2| =2 


23 


Figure 1.1: Normal Lattice Diagram N. 


We will follow the following path to arrive at the isomorphism class. 


INL4| = 46 


Figure 1.2: Relevant Path of N. 


We use MAGMA to see that the largest normal subgroup of N is NL4 = 


(a), where a = (1, 37, 28, 18, 8, 43, 33, 23, 14, 3, 39, 30, 20, 10, 46, 36, 26, 16, 6, 
41, 32, 22, 12, 2, 38, 27, 17, 7, 44, 34, 24, 13, 4, 40, 29, 19, 9, 45, 35, 25, 15, 5, 42, 
31, 21, 11). Thus, NL4 = 46 since |a| = 46. 

Let Q = N/NL4. N cannot be the direct product of NL4 and Q since N 
has no normal subgroup of order 11, which means N is a semi-direct product of 46 
by Q. Now Q = N/NL4 and MAGMA gives us N/NL4 = {NL4b}, where b = (1, 
20, 9, 35, 42, 8, 32, 33, 38, 46, 15)(2, 19, 10, 36, 41, 7, 31, 34, 37, 45, 16)(3, 23, 18, 
5, 27, 25, 22, 13, 43, 11, 40)(4, 24, 17, 6, 28, 26, 21, 14, 44, 12, 39). Thus Q & 11. 
Since Q = 11 and NL4 & 46, we find the action 46 on 11 is a? = a>. We verify 


in MAGMA that (a, b|a*®, b!!, a? = a?°). Thus N & 46:11. Please see 
for the MAGMA code. 


1.3 (46:11):2 


Given a group N, we demonstrate our method of finding the isomorphism 
type of N. We give another example to illustrate the process. 

Let N = (x,y), where x = (1, 42, 46, 28, 40, 32, 21, 44, 13, 34, 35, 4, 9, 
6, 24, 11, 19, 30, 7, 38, 17, 15)(2, 41, 45, 27, 39, 31, 22, 43, 14, 33, 36, 3, 10, 5, 23, 
12, 20, 29, 8, 37, 18, 16)(25, 26) and y = (1, 39, 21, 15, 13, 44, 7, 42, 37, 6, 25, 2. 
40, 22, 16, 14, 43, 8, 41, 38, 5, 26)(3, 10, 12, 28, 17, 30, 33, 20, 46, 23, 31, 4, 9, 11, 
27, 18, 29, 34, 19, 45, 24, 32)(35, 36). We note that N < Syg. It is given that |N| 
= 1012. 

We use MAGMA to compute the normal lattice of N and summarize the 
information in the following diagram in which each group is a normal subgroup of 


all the groups that is connected by one or more upward lines. Each vertex of the 


10 


diagram are labeled by the order of the normal subgroup. 


eae) Ca = 506 
= — 
wae ee a, 


| NL7 | = 253 | NL6 | = 46 | NL5 | = 46 


| NL8 | = 92 


|NL4| = 46 


|NL3| =23 


Figure 1.3: Normal Lattice Diagram of N. 


We will follow the following path to arrive at the isomorphism class. 
La) 


Figure 1.4: Relevant Path of 46:(11:2). 


We use MAGMA to see that NL10 is isomorphic to the group in the 


previous section. MAGMA gives us NL10 = (a,b), where a = (1, 32, 16, 45, 29, 


11 


14, 43, 28, 12, 42, 25, 10, 40, 23, 7, 38, 21, 6, 35, 20, 3, 34, 17, 2, 31, 15, 46, 30, 13, 
44, 27, 11, 41, 26, 9, 39, 24, 8, 37, 22, 5, 36, 19, 4, 33, 18) and b = (3, 5, 9, 17, 33, 
19, 37, 27, 7, 13, 25)(4, 6, 10, 18, 34, 20, 38, 28, 8, 14, 26)(11, 22, 42, 36, 23, 45, 
44, 39, 32, 15, 30)(12, 21, 41, 35, 24, 46, 43, 40, 31, 16, 29). Thus NL10 & 46:11. 

Let Q = N/NL10 = 2. N cannot be the direct product of NL10 and any 
other subgroup since N has no normal subgroup of order 2 outside of NL10. This 
means N is a semi-direct product of 2 and Q. Q = N/NL10 and MAGMA gives us 
N/NL10 = {NL10c}, where c = (1, 42, 46, 28, 40, 32, 21, 44, 13, 34, 35, 4, 9, 6, 
24, 11, 19, 30, 7, 38, 17, 15)(2, 41, 45, 27, 39, 31, 22,43, 14, 33, 36, 3, 10, 5, 23, 12, 
20, 29, 8, 37, 18, 16)(25, 26). Using MAGMA we confirm Q = 2. Since Q = 2 and 
NL10 & 46:11, we find the action of a° = a* and the action b° = a®°b. We verify in 
MAGMA that the presentation of N = (a*®,b!!, a’ = a?5,c?,a° = a*®, b° = a*®b). 


Thus N & (23: 2):11. Please see for the MAGMA proof. 


12 


Chapter 2 


A Degree 12 Monomial 


Representation of Lo(11) 


2.1 Definition and Theorems 


Definition 2.1. The set of all invertible n x n matrices with entries in field F, 
under matrix multiplication, forms a group. This group is called the general linear 


group of degree n over F, and is denoted by GL(n, F’). [Jame01] 


Definition 2.2. Let p be a prime number. SL (2, p) the set of all 2 x 2 matri- 
ces M with entries in Zp such that det(M) = 1. Then SL(2, p) is a group under 
matrix multiplication, and 1s called the 2-dimensional special linear group over Zp. 


[Jame01] 


Definition 2.3. The factor group SL(2, p)/Center(SL(2, p)) is called the 2- 


13 


dimensional projective special linear group, and is written as PSL(2, p) or Lo(p). 


[Jame01] 


Definition 2.4. If X is a set and G is a group, then X is a G-set if there is a 
function a: Gx X —> X (called an action), denoted by a: (g, x) > gx, such 
that: 

(i) 1x = x for all x € X; and 

(it) g(ha) = (gh)x for allg, hE Gandae X. [Rot95] 


Definition 2.5. G acts on X, if |X| =n, then n is called the degree of the G-set 


X. [Rot95] 


Definition 2.6. If X is a G-set and « € X, then the G-orbit of x is Gx = {gx : 


g€ GC X. [Rot95] 


Definition 2.7. A G-set X is transitive if it has only one orbit; that is for every 


x, y € X, there exists 0 € G with y = ox. [Rot95] 


Definition 2.8. A representation of G over field F is a homomorphism p from G 


to GL(n, F'), for some p. The degree of p is the integer n. 


Definition 2.9. Let p be an representation of G. Then the character x of afforded 
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by p is the function given by x(g) = tr (p(g)), where tr is the trace. [Isaa76/ 


Theorem 2.10. Theorem 1.1.13. The number of irreducible characters of G is 


equal to the number of conjugacy classes of G. [Led77] 


Definition 2.11. Definition 1.1.14. (Degree of a Character) The sum of 
squares of the degrees of the distinct irreducible characters of G is equal to |G]. 
The degree of a character y is y(1). Note that a character whose degree is 1 is 


called a linear character.[Led77] 


Definition 2.12. Definition 1.1.15. (Lifting Process) Let N be a normal 
subgroup of G and suppose that Aop(N2x) is a representation of degree m of the 
group G/N. Then A(x) = Ao(N«a) defines a representation of G/N lifted from 
G/N. If go( Nz) is a character of Ap(Na), then y(x) = yo( Nz) is the lifted char- 
acter of A(x). Also, if u € N, then A(u) = Im,y(u) = m = (1). The lifting 


process preserves irreducibility.[Led77] 


Definition 2.13. Definition 1.1.16. (Induced Character) The character of 
A(x), which is called the induced character of ¢, will be dentoted by ¢°%. Thus, 


o° = trA(x) = 02, o(tat,—1). [Led77] 


Definition 2.14. Let n be a positive integer, and denote by C the set of all com- 


plex numbers. The set of nth roots of unity in C, with the usual multiplication of 
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complex numbers, is a group of order n. It is written as C, and is called the cyclic 


group of order n. [Jame01] 


Definition 2.15. Definition 1.1.10. (Progenitor) A progenitor is a semi- 
direct product of the following form: P= 2*":N = {aw | a € N, and w is a word 
in the t;}, where 2*” denotes a free product of n copies of a cyclic group of order 2 
generated by involutions t; for i=1,...,n; and N is a transitive permutation group 
of degree n which acts on the free product by permuting the involutory generators. 


[Curt96] 


2.2 Induction of 5:11 Onto L2(11) 


Let G = { (3, 7, 9, 4, 5)(6, 8, 12, 10, 11), (1, 8, 2)(3, 4, 7)(5, 12, 11)(6, 
9, 10)). MAGMA gives us that the order of G = 660 and G is isomorphic Lo(11). 
Let x = (3, 7, 9, 4, 5)(6, 8, 12, 10, 11) and y = (1, 8, 2)(3, 4, 7)(5, 12, 11). 

Given that G has a faithful character y of degree 12. In the table below 


Z5 is a primitive 5th root of unity. 


Class Rep- 

resentative Ta(G)} (xy")") y | yx" (yx?)? yx") xy | (yx)? 
size 1 50 110) 132 132 110) 60 | 60 
x tr |e 0 z3—22-1| -22-22-1]0 J1 /1 


Table 2.1: The Classes of G. 
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We need to find a subgroup, H, of G with index 12. If we can find 
a character of H that induces to y then we can construct a faithful irreducible 
monomial representation of G. 

Let H = ( z, w ), where z = (1, 4, 3, 10, 8)(2, 7, 5, 12, 11) and w = (1, 
2, 12, 11, 3, 7, 6, 4, 5, 8, 10). Given ( z ) is normal in H and ( w ) is normal in H, 


We have H & (z ):( w ); that is, H & 5:11. 


We want to induce the following character of H up to G: 


Class Representative Id(H)| z z" z° Zo Ww w? 
Size 1 11 11 11 11 5 3) 
X2 1 Z5 257 Z5° Z54 1 1 


Table 2.2: The Character x2 of 5:11. 


Definition 2.16. (Formula for Induced Character) Let G be a finite group 
and H be a subgroup such that [G : H] =|G|/AH| =n. Let Cy, a = 1, 2,...m 
be the conjugacy classes of G with |Cy| = ha. Let @ be a character of H and 6° be 
the character of G induced from the character ¢ of H up to G. The values of 6% 
on the m classes of G are given by: 
gi) =7- So =o). 
weCgnH 
In our case n = 660/55 = 12 and ¢ = yg. The conjugacy class of G are 


as follows: 
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Class 

RERES: Id(G) | (xy)? | y yx? (yx*)? | yx? | xy (yx)? 
sentative 

size 1 55 110 132 132 110 60 60 


Table 2.3: The Conjugacy Classes of L2(11). 


We will use MAGMA to look up the elements of the group and of the 
conjugacy classes. 


C, OH = {id(H) } => yo(Id(H)) = 1 => ¢% = 12/1(1) = 12. 


CoN H= {} ¢ = 0, where {} is the empty set. 
C3 NH = {} o¢ 0. 
Can H={ (1,7, 5, 2, 10)(3, 11, 8, 6, 12), (1, 12, 2, 4, 3)(5, 8, 11, 6, 10), 


(1, 10, 2, 5, 7)(3, 12, 6, 8, 11), (1, 6, 7, 4, 11)(2, 3, 8, 10, 5), (1, 8, 12, 7, 10)(2, 4, 
6.5.8); (119.86, 2), Fal A 10) Ch A 10, Be) G8. 
12)(3, 10, 4, 11, 7), (1, 5, 11, 12, 3)(2, 6, 4, 7, 8), (1, 3, 12, 11, 5)(2, 8, 7, 4, 6), (1, 
3, 4, 2, 12)(5, 10, 6, 11, 8), (1, 5, 3, 6, 7)(2, 12, 4, 10, 11), (1, 4, 8, 5, 11)(3, 7, 10, 
$9: Gye 78 BNO. 11, OA 19), Cs G10 VA 8 BV 0 1D: 
8), 3.560), (1 1158, (8, 6.49: 10s Fy 1 8 0, O11 9 7): 
7, 11, 3, 8)(4, 12, 10, 6, 5), (1, 2, 10, 11, 6)(4, 8, 7, 12, 5), (2, 8, 3, 11, 7)(4, 5, 6, 
10, 12),(1, 4, 3, 10, 8)(2, 7, 5, 12,11) } => dF = (12/132)(x0((1, 7, 5, 2, 10)(3, 
11, 8, 6, 12)) + x2((1, 12, 2, 4, 3)(5, 8, 11, 6, 10))+ x2((1, 10, 2, 5, 7)(3, 12, 6, 
8, 11)) +x2((1, 6, 7, 4, 11)(2, 3, 8, 10, 5)) + xo((1, 8, 12, 7, 10)(2, 4, 6, 5, 3)) + 
xa((1, 12, 8, 6, 2)(3, 7, 11, 4, 10)) + x2((1, 11, 4, 7, 6)(2, 5, 10, 8, 3)) + x2((1, 2, 
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6, 8, 12)(3, 10, 4, 11, 7)) + ve((1, 5, 11, 12, 3)(2, 6, 4, 7, 8)) + xe((1, 3, 12, 11, 
5)(2, 8, 7, 4, 6)) + x0((1, 3, 4, 2, 12)(5, 10, 6, 11, 8)) + xo((1, 5, 3, 6, 7)(2, 12, 4, 
10, 11)) + xa((1, 4, 8, 5, 11)(3, 7, 10, 12, 6) + vo((1, 7, 6, 3, 5)(2, 11, 10, 4, 12)) 
+ x2((1, 6, 11, 10, 2)(4, 5, 12, 7, 8)) + x2((1, 10, 7, 12, 8)(2, 3, 5, 6, 4),) + x2((1, 
11, 5,84) (3:6; 19; 00, 7)) yo (1, 8) 105-3542; 1119, 8, DE ol (2, 7, 1S, 
8)(4, 12, 10, 6, 5)) + xea((1, 2, 10, 11, 6)(4, 8, 7, 12, 5)) + x2((2, 8, 3, 11, 7)(4, 5, 
6, 10, 12)) + xo((1, 4, 3, 10, 8)(2, 7, 5, 12, 11))) => (12/132)( 254 + 254 + ze + 
4 


Z +25 +25 + Z5 +25 + Z5 4 Z5* + Zs + 254 + Z5 + Zs 4 Zn t Ze¢ + 25 + 
z5* + 254 + z57 + 25* + zg” ) = (12/132)(11)(-25° - 25? - 1) = -253 - 25? - 1. 

Ce HS 4-1, 1, 2.6; 10) (4 a1 8 86 FeCl, A, Oe 5, 6-8; 10; 
£1 (15, 10.7 250, 812 1126) 2%, 10: S35 Ge TID 8) Be 
6)(3; 11s 10; 7 4), y 6; Sy % 310), 12.14, AY 10.65 2, 1147 5 812) 
(2.3.12, A611, 10. 86), (E6199. B38 47 OT he 78 10, AOS 
6,453, 6), 1-54, 11 SG, 10s FG, 10) 8, 8 10, 5, AL Te AD) Oe BF, 
8, 11)(4, 6, 12,5510), (07, 4d, 6; 42.8: 5, 8, 10), 1, 3,5 712) (2, 4S, 6,7), 
(2; 11;.8.°7..9) (4,10, 5,122.6). 12, 10, 8.7) (26,3; Ay 5 (Let, 6, Ly 7) 10, 
35.8) (1 10) 428, 3), 12-7 11)5), Ay 8, 1A, 5) (8; 10: 6% 75 12) 12.5, 3: 
FI). -7: 658, 413 27056) (2e 4 1 1D 10) OS S182 a (1s Te 
6, 10)(4, 12, 8, 5, 7)) + xe((1, 4, 12, 3, 2)(5, 6, 8, 10, 11)) + xe2((1, 5, 10, 7, 2)(3, 
8, 12, 11, 6)) + xa((1, 2, 7, 10, 5)(3, 6, 11, 12, 8)) + xo((1, 8, 2, 12, 6)(3, 11, 10, 
7, 4)) + x2((1, 6, 5, 7, 3)(2, 10, 12, 11, 4)) + x2((1, 10, 6, 2, 11)(4, 7, 5, 8, 12)) + 
xa((1, 2, 3, 12, 4)(5, 11, 10, 8, 6)) + xa((1, 6, 12, 2, 8)(3, 4, 7, 10, 11)) + xa((1, 
7, 8, 10, 12)(2, 5, 4, 3, 6)) + ve((1, 5, 4, 11, 8)(3, 12, 7, 6, 10)) + x2((1, 3, 8, 4, 
10)(2, 5, 11, 7, 12)) + xe2((2, 3, 7, 8, 11)(4, 6, 12, 5, 10)) + xe((1, 7, 11, 6, 4)(2, 8, 
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5, 3, 10)) + x2((1, 11, 3, 5, 12)(2, 4, 8, 6, 7)) + xo((2, 11, 8, 7, 3)(4, 10, 5, 12, 6)) 
+ x2((1, 12, 10, 8, 7)(2, 6, 3, 4, 5)) + x0((1, 4, 6, 11, 7)(2, 10, 3, 5, 8)) + x2((1, 
10, 4, 8, 3)(2, 12, 7, 11, 5)) + xa((1, 8, 11, 4, 5)(3, 10, 6, 7, 12)) + xe((1, 12, 5, 


3, 11)(2, 7, 6, 8, 4)) +va(1, 3, 7, 5, 6)(2, 4, 11, 12, 10))) = (12/132)(253 + 25? 


25° + 257 + 257 + 257 + 25° + 25° + 25° + 25° + 257 + 257 + 2257 + 257 + 25” 


25° + 25° + 25° + 25° + 25° + 25° + 25°) = (12/132)(11)(z5° + 25”) = 25° + 25°. 


CoH = {} og 0. 


C7 NH = {(1, 12, 3, 6, 5, 10, 2, 11, 7, 4, 8), (1, 6, 2, 4, 12, 5, 11, 8, 3, 
1027) (ly AS, 061287 9538) (1 5 ee 10 aS. 8 6 1), 
85s AN 6G Bo 18D) a PS = 10 139) yo (1, 10 8 6, 5 10 2, 7, 
8)) + va((1, 6, 2, 4, 12, 5, 11, 8, 3, 10, 7)) + xo((1, 4, 11, 10, 6, 12, 8, 7, 2, 5, 3)) 
+ xa((1, 5, 7, 12, 10, 4, 3, 2, 8, 6, 11)) + xa((1, 10, 8, 5, 4, 6, 7, 3, 11, 12, 2})) = 
(60/12)(1 +1+14141)= 1. 


Cg NH = {(1, 2, 12, 11, 3, 7, 6, 4, 5, 8, 10), (1, 11, 6, 8, 2, 3, 4, 10, 12, 
7; DAT A0, 98s Ti 5 194, OG 85 OF BID. 610) 11, Ay 8a, 
7, 11, 2, 10, 5, 6, 3, 12)} —> $$ = (12/60) (x2((1, 2, 12, 11, 3, 7, 6, 4, 5, 8, 10)) 
pa ((1, 11,6; 82,3) 4, 10) 19,7, 5)) yo (Ly 10,3; 8,1, By 12) 44-2, 6) 
x2((1, 3, 5, 2, 7, 8, 12, 6, 10, 11, 4)) + ve((1, 8, 4, 7, 11, 2, 10, 5, 6, 3, 12))) = 
(2/600 ETL y= @, 


The values of character of ¢ are summarized below: 
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Class Rep- 

resentative 1a(G)} (xy")") y | yx (yx?)? yx!) xy | (yx)? 
size 1 55 110 | 132 132 110 | 60 | 60 
oo 12 | 0 0 z3—22-1| -22-22-1]0 J1 /1 


Table 2.4: The Induced Character of L2(11). 


Note that x is the induced character ¢@%. Since we are able to induce 


character y2 of H to obtain character y of G, we can now construct a faithful 


monomial representation of G. 


2.3. A Monomial Representation of L2(11). 


Given the following ten transversals of H in G: 


t; = 1d(G), 

to = (3, 7, 9, 4, 5)(6, 8, 12, 10, 11), 

tz = (1, 8, 2)(3, 4, 7)(5, 12, 11)(6, 9, 10), 
ta = (1, 7, 12, 4, 8)(3, 11, 10, 9, 5), 

ts = (3, 5, 4, 9, 7)(6, 11, 10, 12, 8), 

te = (1, 4)(2, 8)(3, 12)(5, 7)(6, 10)(9, 11), 
tr = (1, 10, 12, 8, 2)(5, 11, 7, 9, 6), 

tg = (3, 4, 7, 5, 9)(6, 10, 8, 11, 12), 

ty = (1, 5, 9, 12, 10)(3, 11, 7, 4, 6), 


tio = (1, 11, 9, 8, 2)(3, 7, 4, 5, 6), 


ti, = (1, 5, 9, 2, 8)(4, 12, 11, 10, 6), 
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(1, 12, 5, 10, 9)(3, 4, 11, 6, 7). 


ty2 


= ¢. 


Recall the character x2 of H 


Let A(x) 


LON PR FER OR RD SR SOON 


WS’ OY YY YY Hee Here wee wa 


LN NNN mS 


Wn iw were Yr Ye wee 


LO RS SCS SS OR ORS 


Wa wr were YY YP we we we we 


NNN NN mS 


We Wwe wy YY YP we we we 


TN OR RN SRN Se 


Wa Ww YY YY YP we we ww wy 


We wer ware YY Ye Ye we we we 


) 
) 
) 


re 


xn tn Tan 
le loa ola 
~ ~ w 
8 8 8 
(=) al N 
Lol re re 
~ ~_ ~ 
Se IS 
e+ s+ 6 
— SSeS 
rn 
leo ola ole 
~ ~ ~ 
8 8 8 
=) qq “ 
re re re 
w w w 
See et Ae 
Ge Oo 86 
i Fania oo 
TS: The! HS 
l= la la 
~ ~ ~ 
8 8 8 
(=) coal N 
a = a 
~ ~ ~ 
dl Ne “Neel 
e+ oS 8 
—— PS SS 
re re re 
lo blo ilo 
~ ~ ~ 
8 8 8 
=) qd “ 
re re to: 
w w w 
Nae ae ee ee 
Ce 83 6 
F Sao. or oN a ae 
a 4 a 
In Lan la 
= +S = 
8 8 8 
jo) al N 
a dq am 
~_ ~_ ~_ 
hice” Nisan ~—" 
e+ oso 8 
a BS SBS 
qo qo qo 
leo oleae ole 
~ ~ ~ 
8 8 8 
(=) al N 
a oq oH 
~_ ~ ~ 
cee ee na Wines 
e+ Ss 6 


So © & 


=) 


QO © 


0 


0 


0 0 0 


0 


0 


oe OS 


0 


0 0 O 


0 
0 


oOo Oo 


XR 
AT) 


S 


j=) 


oOo Oo Oo 


0 


% 
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We need to find a prime p such that Zp has elements of order 5 and 5|(p- 


1). This means p—1 = 5k. Now, p = 5k+1. We find that k = 2 gives the smallest 


such p and p = 11. Since 5 is of order 5 in Z11, we replace z5 with 5 and change 


the entries in A(x) so that they belong to Zy1. 


— 


So ©. Or OO 1 OF Oo Oo OO © 


KO 


I 


EF CO OO 


ES eC eS SO yy © 


a) 


~~ © © 


23 


24 


ax —~ a pas — eo pee. PRS | oe 


EON RNR OS EN SNS 


=, = ae rand = A oe ee ee 


wa wa wa wa wa wa wa wa wa 


a a 7 a a i a 


Tin Tin N 
la ola ola 
» »~ » 
> > > 
j=) Sl N 
= = 4 
~_ ~_ ~ 
s+ s+ 6 


~_ > »~ 
> > > 
oO baal N 
a anal al 
) ) w 
Ge sos 36 
Cs eas oN 
al al al 
In La La 
» » » 
> > > 
fo) baal N 
o al al 
~ ~ ~ 
e+ oS 8S 
nal al nal 
leo ole ole 
> >_> > 
> > > 
(a) co N 
4 anal al 
) a) w_ 
oe os 86 


a ) 


N 
ous 


oe) 


oOo Oo 


me Oo "Or 6 Oy ON ce 


Cin SO. bey +e Cr) 1S 


Z5 


0 


0 


0 


0 


0 0 0 


=) 


Or. Or. 
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We must replace z5 with 5 and change the entries of B(y) so that they 


belong to Z4}. 


=) j=) 


rE Oo Oo 


j=) 


0 


0 


0 


0 


0 


PB 3.9 


0 


re Oo Oo GO 2 


Sy. (So Or Oe 3 


0 


0 


0 


1 
0 


000000 00 01 0 


SO: (Or Ore (Oey tO SO Oi 
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Since our field of entries is Z,; and the dimension of the entries is 12, the 


monomial progenitor is 11*!? :,, L2(11). 


Since |t;| = 11, each t; has 10 distinct powers, we label the 12 t;s and 


their powers as follows: 
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label Te ize NSB oA Ney AGS UNS eg 1G gl ai ee PD 
element | t1 to t3 ta ts te t7 tg to tio | ti tio 
label Ae | DAS. | ae, | he eee, |S 8 BOF Ott) Be. | 9B. -|94 
element | 4g?” | ie?) tae | tae | ge || ge | te? tg tig. | tae? | a?) ta 
label 25: | 26.) 27 | 28°29. 1/30 |-81. |-32° | 38 |34. [35- | 36 
element | 24! tg? |) t92° | ta? | ts? | Gig? | te tg? Vtg? tag? | tag? | tie? 
label 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 
element | t;* | tet | t34 | tat | ts* | te* | tr4* | tg* | to* | tio* | tii4 | tre4 
label 49 |50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 
element:.|:ty>* |g? |) GaP) ba? | al ge ta tg bg? stan | tae” 
label 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 
element:|t,°: | 5°" | t3° |ta® | te | tg? | ae® bo te® | oto® |bi9® ita | tae? 
label 73 | 74 | 75 | 76 | 77 |78 | 79 | 80 | 81 | 81 | 83 | 84 
element | t;” | te” | t3” | ta’ | ts” | te” | tr’? | tg” | to” | tig’ | tay” | tre? 
label 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 
element.) 47>: |e? | tg? | ea? || tee | ek te teh te fey? ta || tas? 
label 97 | 98 | 99 | 100} 101] 102] 103] 104] 105| 106 | 107 | 108 
element | t,? | to? | t3? | ta? | ts? | te? | tz? | tg? | to? | tro? | tir? | tro? 
label 109) 110} 111] 112] 113] 114] 115] 116] 117} 118 | 119 | 120 
element | t19| 229} t32°] tq!0] t529) t629} t72} tg!] tol] tig!) 1122) ty! 


Table 2.5: Labeling of 120 t;s on Which L2(11) Acts. 
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The matrices of £2(11) act as monomial automorphisms on the 120 letters 
(tis) given above. The monomial action is given by: aj; =b — > ti tt. We now 
want to compute the permutation representation of the monomial representation 
of L2(11) to give a symmetric presentation of the monomial progenitor 11*!? :,, 
L2(11). 

From the 1st row of matrix A(x) we get aj, = 1, which leads to all of 


the following: 


B=) Se 13 + 14 
pee) eee 25 + 26 
peo ged 37 — 38 
f=) Se 49 — 50 
Cai 61 — 62 
Jes ane 73 > 74 
PS =e 85 > 86 
i eee 97 — 98 


#7 = (t3)'9 = 3° = > 109 110 


a2,4 —_ 


tg =tf = 2-40 


B=) =a 14 + 88 

b= =i =u 264 
Bn Ht Ht 38 > 52 
ey Care eee iueee 9 50 + 100 
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Meas et 62 > 16 
LH Gy HP ah 74 > 64 
B= =7=7" 86 > 112 
B=) == 98 + 28 
i3° = (4) =i =t{ — 110 76 


03,6 =4 => 


t3 = tg => 3 42 


B= (2) =i 15 + 90 
=) =4- =e 27 > 6 
B=.) St =e 39 — 54 
b=, =. =e 51 102 
BSG.) ai =i 63 + 18 

Ca a = 7566 

C= St Sa 87 + 114 
Cat) = ST 99 — 30 
PSG) St St tS 8 


a4,8 = 3 => 


g= ts > 4-32 


2 


La a 16 > 68 
Get) SS e 28 — 104 
B= By S17 =n 40 > 8 
BSC avez 52 — 44 
CSS =e 64 — 80 


ty 
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(By ai aie 76 — 116 

Caen 88 > 20 

(a) See 100 + 56 
i) = (GB)? = = > 112 92 


tj 5 1 
Gi) = 17 > 13 
Gee 29 > 25 
a= 41 — 37 
Geer 53 > 49 
Gy Se 65 > 61 
Gh ea 7.33 
ay =y 89 + 85 
Gra 101 + 97 


a6,7 = 3 => 


t 
t6 


4 
t6 


P= 18 — 67 

(a) 40 30 > 103 
()\rai? =F 4247 
(GS) S74) =- 54 — 43 
==! 66 — 79 
Gy = =c 78 — 115 


31 


8 = (48)8 = 24 = #2 90 + 19 


B=(8P =2' =8 102 — 55 


HSB SP =k |] 14591 


a7zi9 = 1 => 


t7 = thy = 7—-> 10 


eho) =e SS 2 

3 = (tl) =8, —> 31 34 
4=(t,)4=t4) — 43> 46 
P= (ip)? =e = 5558 
(ie)! = ty > OF 70 

th = (tip)’ =tl) —> 79 82 

8 = (#18 = — 91394 

#2 = (t,)9 =19, => 103 > 106 
aS) Ss 118 


ag.5 => 1 => 


tg =th => 835 


B= (1)? = 20> 17 
Pali Se 32 — 29 
i= (Hh) =4 44 41 
Beyer 56 — 53 
eS Ge Se 68 — 65 
t§ = (t5)’ =t§ => 8077 
RS Cpa 92 > 89 
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PS) Ste 104 > 101 


tg? = (4) 9 =t3° => 116 > 113 


a93 = 3 => 


tg =t8 —> 9 27 


a ee 21 > 63 
PS) a 33 > 99 
gate) Sie Se 45 > 3 
Ca) ==. 57 + 39 

es Gyr Si = 69 > 75 
iS) Si. Se 81 > 111 
C=C S =i 93 > 15 
Ley =. =2 105 > 51 
iy SO PSS SS It S87 


10,9 = es 


tio = tg => 10> 45 


Upto 22 > 93 

i =G = =a 34 > 9 
ij=t) = He 46 + 57 
i=) =. St, 58 — 105 
a (te) =e St, 70 + 21 
fe= a) = Sis 82 — 69 
eH ate = te 94 + 117 
(gti Se ae 106 > 33 


SY Si St Ss at 


aii =4 == 


ticet, = 1 a7 


= = hy, SS 23 S 9 
Sh ee 
tt, = (4,)* =f =8, — 47-59 
Gi = = a tn 9S 107 
P=) C=, Ht SS 18 
(= Ci) Sta. SS ea a 
ea = Sa 95 S119 
= Gy Sa 7 5 
Ha) ae =e. =. 1194 33 


aj212 =3 => 


tio =t?, => 12> 36 


Go =o) St be > 6 108 
48 — 12 
60 — 48 


84 — 120 
96 — 24 


(tia) 
(ti) 
(ti) =o 
(ti) =e 
ths = (ta) = t15 = tH, => 72 > 84 
(ti) = 
(ti) a 
=({85) =i S05 108.60 
(ty) 
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From matrix B(y) we obtain all of the following: 
61.3 =) >> 


CH= SS 13 


Grae 13 + 15 
Bae = 25 + 27 
C= @) =e 37 > 39 
Pah) =e 49 > 51 
Sa =e 61 > 63 
Saas 73 > 75 
P=) =e 85 — 87 
Li) =. 97 + 99 


ep? = (¢3)°° = 23° => 1095 111 


bo5 i 


ig) => 2553 => 


iS (eh) =i. 14> 113 

CS Si =e 26 > 41 
BS) Ste ae 38 > 101 
pee) St a 50 — 29 
Cea a 62 > 89 
ee 7417 
S26 SiS 86 > 77 
B=(hy SH = 98 + 5 
S(O Sai ee 105 


39 


b3.7 =3 => 


tg=8 => 3531 


BS Sr 15 + 67 

B= EP =t 27 > 103 
B=) =i =o 39 + 7 
CS) Se = t, 51 > 43 
Salat ent 63 + 79 
he) a ei 75 + 115 
eee Ce ee gee 87 + 19 

C= =e Se 99 — 55 
Sey =) Sie TT 


GR =e 16 — 69 

B= (sa) =s 28 — 105 
Sit) S14 a4 40 + 9 
Bay Hi =, 52 — 45 

= Bra ae 64 > 81 
=G) Stat, 76 — 117 
CS) St, 88 > 21 
a) Se = 100 + 57 
=e) ae Sa == 13 


a =, 17 — 20 
ne ee 29 > 32 
i= Gh) =a, 41 44 
Pay =e 53 > 56 
to Ga yr ase 65 > 68 
LSC at 77 + 80 
= (,)° Sa, 89 > 92 
a ees 101 + 104 


GS a 18 + 16 
EU) =a, 30 > 28 
i) a 42 — 40 
Stn) Ss, 54 > 52 
i) ae 66 > 64 
pat) Su 78 — 76 
PS) eG 90 > 88 
Ca =a 102 — 100 


ia aa = 14S 


b71 2 es 


t=tt = 737 
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Beg) =q 19 + 85 

CS St) a 3131 
B=) =i S=t 43 > 49 
Peay = SF 55 > 97 
PaaS t4=F 67 > 13 
eS) = = 79 > 61 
Ca) =4 Ht. 91 > 109 
Pe) at) =, 103 > 25 
SS St Ss Se 


Ley =a = 20 > 74 
CaS ee 32 > 50 
Cay St =e 44 > 26 
C=) =o =o 56 > 2 
CaS Sa 68 + 110 
LC) SS, 80 — 86 
C=) at Se 92 — 62 
Pea) =i =f 104 + 38 
Gy S=() Se =e, = ie 


bo.6 =4 => 


tg =t§ => 9 42 


Ba) = 21 > 90 
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n=.) == 33 — 6 
Ga) St Se 45 > 54 
Ca) =e Sr 57 — 102 
C=C, SS 69 > 18 
ili Si He 81 + 66 
2G Se at 93 + 114 
ga.) Si =i 105 > 30 
i =A) =a. St = 1 Ss 


biout = 1 


tio =t}, = 10-11 


C= Ch =e SS BS 23 
Bg = Hap 84 35 
to Shy Sh 6S a7 
Pe yes ee tee 
CH= hah S| 0s 71 
Vee tt St SS 828 
GoSth eH ey > 94595 
Gey Sa = 106 S07 
Hea a S116 S119 


buijz2=1l = 
tu =t, = 11312 


Gy =(G5)) =] > 35 86 
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Gy = (hey =f — ATS 48 
Geis =e = 60 
Oia =p SS 1a 
ti, = (th)? =th, —> 83 84 
i= Chey =. =>: 95-> 96 
ty =o) St = 107 > 108 
a? = (4,)" = 42 — 119 > 120 


bi210 =1 = 


Beth) = hy SS 24S 
Go= Go fy. = B64 34 
Un= (ig) Hho. = 246 
y= (er = oy. == B0368 
Bh Sh == 2S 0 
U6)! St 8 82 
8, = (t{))% = t8) => 96 > 94 
tf. = (tt))® =t?) —> 108 — 106 
B=) =} > 1204-118 


Using the above mapping we get A(x) ~ xx = (1, 3, 31)(2, 53, 56)(4, 
33, 6)(5, 8, 98)(7, 37, 39)(9, 42, 40)(10, 11, 12)(13, 15, 67)(14, 113, 116)(16, 69, 
18)(17, 20, 74)(19, 85, 87)(21, 90, 88)(22, 23, 24)(25, 27, 103)(26, 41, 44)(28, 105, 
30)(29, 32, 50)(34, 35, 36)(38, 101, 104)(43, 49, 51)(45, 54, 52)(46, 47, 48)(55, 97, 
99)(57, 102, 100)(58, 59, 60)(61, 63, 79)(62, 89, 92)(64, 81, 66)(65, 68, 110)(70, 71, 
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72)(73, 75, 115)(76, 117, 78)(77, 80, 86)(82, 83, 84)(91, 109, 111)(93, 114, 112)(94, 
95, 96)(106, 107, 108)(118, 119, 120). 

We apply the same method to matrix B(y) and obtain yy =(1, 27, 31)(2, 

101, 56)(3, 7, 37)(4, 9, 54)(5, 32, 50)(6, 100, 105)(8, 98, 41)(10, 11, 12)(13, 63, 

67)(14, 77, 116)(15, 19, 85)(16, 21, 114)(17, 68, 110)(18, 76, 81)(20, 74, 89)(22, 23, 

24)(25, 99, 103)(26, 53, 44)(28, 33, 42)(29, 104, 38)(30, 52, 57)(34, 35, 36)(39, 43, 

( ) 


) ) 
)( ) 
49)(40, 45, 102)(46, 47, 48)(51, 55, 97)(58, 59, 60)(61, 75, 79)(62, 113, 92)(64, 69, 
90)(65, 80, 86)(66, 112, 117)(70, 71, 72)(73, 111, 115)(78, 88, 93)(82, 83, 84)(87, 
91, 109)(94, 95, 96)(106, 107, 108)(118, 119, 120). 

Now, N = (aa, yy) = £2(11). Thus, N isa monomial permutation presen- 


tation on L2(11). It is now possible to create a monomial progenitor G & 11*!? :,, 


L[2(11). There is a MAGMA example of this progenitor in the 
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Chapter 3 
Progenitors 


3.1 Progenitor 3*°°:(2°:(3:7)) 


The purpose of this section is to show some examples of progenitor images 
that we found using Magma. 

Notation: If x is a word in a presentation of a group, and the correspond- 
ing permutation is xx, then we express this by writing x ~ xx. 

x ~ (1, 28, 30)(2, 40, 39)(3, 55, 54)(4, 26, 29)(5, 25, 10)(6, 31, 9)(7, 19, 
18)(8, 16, 21)(11, 17, 24)(12, 41, 50)(13, 52, 42)(14, 51, 34)(15, 56, 33)(20, 53, 
36) (22, 32, 38)(23, 49, 46)(35, 37, 44)(45, 48, 47). 

y ~ (1, 54, 45)(2, 25, 56)(3, 20, 22)(4, 34, 49)(5, 38, 27)(6, 35, 48)(7, 44, 
10)(8,51, 19)(9, 39, 55)(11, 31, 52)(12, 43, 17)(14, 15, 41)(16, 24, 53)(18, 42,46) (21 
36, 47)(23, 40, 33)(26, 32, 30)(28, 50, 29). 

N = (x, y). Magma gives N & (2°:(3:7). 


GS yey ey ay 


i? (iy yx); 


((x74¥ *)%, (xt), ((xyt)t)®, (xy t)4, (yet), ((xy)$t)f, (xyt)8) 


Table of images: 


a|bj{|cjdj{eJ|ff |g |} Order of G Shape of G 
0/0/0]01]0 | 2 | 6 | 367416 37.N 
0/0/0]0]3 | 0 | 3 | 4032 26.N 
0/;0/0]2]0{]0)0 | 1512 3-L2(8) 
3/3 /0]91]0 | 4 | 8 | 304819200 Ajo 


Table 3.1: Images of Progenitor 3*°6:(23:(3:7)). 


Please for the corresponding MAGMA code. 


3.2 Progenitor 3*!4:(2?.(3-7)) 


A2 


The purpose of this section is to show some examples of progenitor images 


that we found using Magma. 


xX ~Ww 


~~ 


».¢ 


3 


aye 


iy ey oe: 


( x ly a (arr 


Table of images: 


(1, 2, 4)(3, 7, 6) (8, 9, 11)(10, 14, 13); 
~ (1, 3, 5)(2, 6, 4)(8,10,12)(9,13,11); 
yy — N= C67). 


ty aye yy), 


» ((xyt)Pt)? , (xy tt)? , (ytx tt)? , ((xy)*t)F, (xyt)8) 
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a b c d e f g Order of G Shape of G 


0 |o |4 0 0 3 4 2520 ey 


Table 3.2: Images of Progenitor 3*!*:(23:(3:7)) 


3.3 Progenitor 2*°°:(23:((3:7)) 


Let x ~ (1, 28, 30)(2, 40, 39)(3, 55, 54)(4, 26, 29)(5, 25, 10)(6, 31, 9)(7, 
19, 18)(8, 16, 21)(11, 17, 24)(12, 41, 50)(13, 52, 42)(14, 51, 34)(15, 56, 33)(20, 53, 
36)(22, 32, 38)(23, 49, 46)(35, 37, 44)(45, 48, 47). 

Let y ~ (1, 54, 45)(2, 25, 56)(3, 20, 22)(4, 34, 49)(5, 38, 27)(6, 35, 48)(7, 
44, 10)(8,51, 19)(9, 39, 55)(11, 31, 52)(12, 43, 17)(14, 15, 41)(16, 24, 53)(18, 
42,46)(21, 36, 47)(23, 40, 33)(26, 32, 30)(28, 50, 29). 
N = (az, y). Using MAGMA we get N & 23:(3:7). 


Cae aut Ye i ayes 


i ey 2a ge 2), 


1 


(xyt (ey *x) p(y tat yay Y)@ (ayttY b2))> (at (a, y)))°, (y~ late" be) 4, (cyt 1) evrye, 
al: 


((xy)Sev eee), ((ey*)4)9, (zy 14)". 
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a|b}/}cj|dt{fejf |g |h | Order of G Shape of G 


3 | 3 | 0 | 96768 2°.(3-L2(8)) 


12386304 2!3.(3-L9(8)) 


(=) 
o;}o}]}o 
=>) 

w 
(= 


9 | 3 | 0 | 211631616 (28.37)-(3-L9(8)) 


CSC lo}lo;lo|;o 
Oo 

Pm lo}lao;la|so 
o 


0 On) 3 O- ae) Cae 3-L2(8) 

0 0|6]0/3 | 0 | 193536 2”.(3-L2(8)) 
0}|0|6/0}9]|0)3 | 0 | 3306744 37-(3-L2(8)) 
01|0/6|3}0]2)010 | 5376 B32? (7-3) 
010/6/|3 10417 )0 | 86016 29. (23.(7-3)) 
0}/0]/6/3|6]4)0]0 | 1376256 aM. (2°.(2:7)) 


Table 3.3: Images of Progenitor 2*°°:(23:((3:7)) 
Please see for the corresponding MAGMA code. 


3.4 Progenitor 2*”°:A; 


The purpose of this section is to show some examples of progenitor images 
that we found using Magma. 

Let x ~ (2, 3, 5)(4, 6, 9)(7, 10, 8)(11, 13, 16)(12, 14, 17)(15, 18, 19) and 
let y ~ (1, 2)(3, 4)(5, 7)(6, 8)(9, 11)(10, 12)(13, 15)(14, 16)(17, 18)(19, 20). 


As es (x,y). 
eae 


( yt¥™")%, (yayt¥®)®, ((ya)?t¥74)°, (yt¥”)4, (yaryt¥)®, (yaryt)!, 


( (yx)?4)9, (yt)", (yt)’). 


Table of images: 
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f |g |hjJi |j | Order of G 


Shape of G 


0}0}4 > 610 | 14400 


2-(2-.A5”) 


0};0})5 4 )0 | 30720 


29.Ac 


0|;0}]6 ) 3 | 0 | 660 


L2(11) 


0 )0)7 )3 1] 0 | 2520 


Az 


0 |4 )4 | 0) 0 | 8160 


2-L9(16) 


0}5}]5 |) 8 | 0 | 31457280 


219.A. 


0 |6)5 )0 ] 0 | 675840 


219.T.5(11) 


3.|0};0 )0 } 0 | 960 


2*-(As) 


4 |0|6)6 ] 0 | 1555200 


2-(3-(2-A6))) 


5 |5 |0 > 9 | 0 | 38972340 


31°.L9(11) 


6 |0}5 | 0) 0 | 983040 


214.A5 


9}5 |5 | 01} 0 | 56687040 


310.(24.A5) 


0}0;)0 | 4 70 | 1920 


25.Ac 


0|0}7 |0)0 | 175560 


0 };0}8 | 8 )0 | 117600 


O | 0 | 10} 6 | 0 | 9720 


0}0}5 4 )0 | 15360 


4 ]0])0)6 | 0 | 368640 


ee] 


4]}6]0);0 1/0 | 11520 


Table 3.4: Images of Progenitor 2*?9 : As 
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ve, 


Chapter 4 


Construction of 3: (2 x S55) Over 


D4» 


4.1 Definitions and Theorems 


Definition 4.1. If X is a G-set and x € X, then the stabilizer of x, denoted by 


Gy, is the subgroup G, ={g€ G: gr =x} < G. [Rot95] 


Definition 4.2. If S is a subgroup of G and if t € G, then a right coset of S € 
G is the subset of G: St = {st:s € S} (a left coset is tS = {ts:s€S}). One calls t 


a representative of St (and also tS). [Rot95] 


Theorem 4.3. If S < G, then any two right (or any two left) cosets of S in G are 


either identical or disjoint. [Rot95] 


A8 


Theorem 4.4. If S < G, then the number right cosets of S in G is equal to the 


number of left cosets of S in G. [Rot95] 


Theorem 4.5. If S < G, then the index of S in G, denoted [G:S/, is the number 


of right cosets of S in G. [Rot95] 


Definition 4.6. If x © G, then a conjugate of x in G is an element of the form 


axa! for some a € G. [Rot95] 


Definition 4.7. If S and T are subgroups of G, then a double coset is a subset 
of G of the form SgT, where g € G. [Rot95] 


Theorem 4.8. (First Isomorphism Theorem) Let f: G—+H be a homomor- 
phism with kernel K. Then K is a normal subgroup of G and G/K = image(f). 
[Rot95] 


4.2 Double Coset Enumeration of 3:(2x S;) Over Dj2 


A symmetric presentation of the progenitor 3*° : Dy is G = ( x®, y?, 
(ey )78, ty = t?, (t, (xy)*), (t*t¥)?), where Dig = (x,y). Let xx = (1, 2, 3, 4, 
5, 6) and yy = (1, 2, 3, 4, 5, 6). Let N = (xa, yy). Magma gives N © Dy. Let t 
= fy. 

The following table gives the correspondence between the words and per- 


mutations of N. 


AQ 


words of N Permutations of N 
x (1, 2, 3, 4, 5, 6) 
y (1, 6)(2, 5)(3, 4) 
xy (1; 5) (24) 

ae (13 5). A2 6) 
x2y (1, 4)(2, 3)(5, 6) 
x3 (1, 4)(2, 5)(3, 6) 
xy (1, 3)(4, 6) 

x4 (1, 5,3) (2; 6,4) 
x4y (1, 2)(3, 6)(4, 5) 
x? (156, 5. 4352) 
x4y (2, 6)(3, 5) 

e = Identity of G | Id(N) 


Table 4.2: Words and Permutations of N. 


We perform our technique of manual double coset enumeration to G over 
N to construct G and prove that G = 3:(2xS5). Before we start our double coset 
enumeration, the relations need to be expanded. 

From the progenitor we get toy = 2, Therefore, t4 = t17, which produces 
the following notation: ts = to”, t52 = te, te = t37, tg? = tz, and ta? = ty. 

Now ta = t1? by notation, which means (a= ty?)" VneéEN. Therefore, 


tg 2), (4, 5) — (¢,2)CL 2), 6)(4 5) since (1, 2)(3, 6)(4, 5) € N. Hence, 
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th = ty? => (ts)? = (t2?)? => tst5 = tototote = te since | ta | = 3, 


Similarly, tg: 3: 5)(2) 4, 6) — (¢,2)G, 3, 5)(, 4, 6) since (1, 3, 5)(2, 4, 6) € 


N t6 ie ig? tz. Similarly, t4 iy? ta? ty. 
Lemma 4.10. (t2tg)? =e. 


Proof. From the progenitor we get (t*t¥)? =e => (t,{1 2 3 4, 5, 6)¢, (1, 6), 5), 4))2 
= (tote)? =e. 

Lemma 4.11. ty = Ho. t = i, and tg = is. 

Proof. t4 = ti? by notation. 


tat; = ty?t; = e since since |t,| = 3. 


t4ty =e = 4 = tes 


-1 


Similarly t; = to! and tg = ts 


Lemma 4.12. tote = t3ts. 


Proof. (tate)? =e ( Lemma 4.10). => totetote e => totetiete7te” — et gto” 


= totgtote” = totete® = tots = tg?te? => tots = (t37)*ts = t3“ts = tsts since | 


ig |=3=> > tote = tate. 


Lemma 4.13. t3t; = tate 


Proof. t3t, = tate since (tote) 2 3 4 5: 6) — (t3t5)(b 2 3: 4; 5 6) ( Lemmal4.12). 


Lemma 4.14. tst3 = tete. 


Proof. tst3 = tetg since (tots) 4) G6) = (tgt5)G: 42, 8; 6) ( Lemma [4.12). 
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Lemma 4.15. tyt3 = tetas. 


Proof. tit3 = teta since (tgtg)’ 26 94 5) = (t3ts) 2G, 4 5) ( Lemma 4.12). 


Lemma 4.16. tyts = tot4. 


Proof. tits = tata since (tote) 6,5, 4, 3,2) _ (t3ts)@ 6, 5, 4, 3, 2) ( Lemma 4.12). 
Lemma 4.17. t5ty = tata. 


Proof. tst; = tata since (tote) 6)(2, 5)(3, 4) (t3ts)C 6)(2, 5)(3, 4) ( Lemma 4.12). 


4.2.1 Double Coset [*] 


The only right coset of NeN = [*] is N => |[*]| = 1, which is symbolized 
by placing “1” inside the circle representing [*]. The stabilizer of N is N, therefore 
the only orbit of N is {1, 2, 3, 4, 5, 6} which yields the cosets Nt,, Ntg, Nt3, Nt4 
Nts, Ntg € [1]. This is symbolized by placing a “6” next to the circle representing 


[*] in the diagram. 
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Figure 4.1: Double Cosets [+] 


4.2.2 Double Coset [1] 


Let N! be the stabilizer of {1} over N. Therefore, N+ =( (2,6)(3, 5)). 
N) = N! since there are no relations such that t; = t; where 0 < i,j < 6. Hence, 


[1] = wo < 2 =6. The right cosets of [1] are Nt;, Nta, Nts, Nta, Nts, and 


Ntg which verifies |[1]| = 6. This is symbolized by placing a “6” inside the circle 
representing [1] in the diagram. Now the obits of N“) on X = { 1, 2, 3, 4,5, 6 } 
are {1}, {4}, {2,6}, and {3, 5}. 

For the double coset [w], we need only determine the double coset of the 
right coset Nwt; for one representative t; for each orbit of the stabilizing group 
N(®) of the coset Nw. We start with Nt)t; = Nt, € [1]. Now Ntita = Ntiti? = 
Nt;? = N € [*]. Therefore, tit, € [*], since t,t, = e. The third set of orbits yields 


Ntyto, Ntite € [1, 2). Similarly, Nt,t3, Ntits € ae 3]. 


53 


Figure 4.2: Double Cosets of [1] 


4.2.3. Double Coset [1,3] 


The N18) > (e). By Lemmal4.19] totg= tyts , therefore (tate) (1: 2@ 94 5) = 
(t3ts) 2G; (4 5), This yields t1t3= teta. (t1t3 ) 9A DC, 4) = tety = tyt3, which 
means (1,6)(2,5)(3,4)€ N@). This implies, N(3)>( (1, 6)(2, 5)(3, 4) ). Con- 
sequently, N(+3) >( (1, 6)(2, 5)(3, 4) ), therefore |[1, 3]| = TES #2 =6. The 
orbits of ( (1, 6)(2, 5)(3, 4) ) on X are {1, 6}, {2,5}, and {3,4}. 

The first set of orbits yield Nt t3t; and Nt t3tg, which belong to the same 
double coset. Since Nt, t3tg = Ntit3t3? = Nt,, we now get Ntjt3t,, Ntitstg € [1]. 

The second set of orbits yield Ntit3ta, Ntitsts € [1,3, 2]. The third set 


of orbits yield Nt,t3t3 and Nt,t3t4, which belong to the same double coset. Since 
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Ntyt3t3 = Ntytg = N(ttz)% 9@ 5) € [1, 2 ], therefore Nt,t3t3, Ntit3ta € (1, 2 ]. 


Figure 4.3: Double Cosets of [1,3] 


4.2.4 Double Coset [1,3,2] 


The orbits of N32) on X are {1}, { 2}, {3} ,{4}, {5}, and {6}. N@32) 
> (e). Therefore, Wasa < 2 = 12. The first set of orbits yield Ntitgtet, € [1,3, 


2,1], which is a new Double Coset. 


From the second orbit we get the right coset Nt t3tatg = Ntit3ts since to? 
= ts. The third orbit of N@) yields that Nt)tgt2 and Ntit3ts belong to the same 


right coset. Therefore, Ntit3ts = Ntit3tete € [1,3, 2]. 


From the third set of orbits of N@3:2) we get the right coset Ntitgtot3 € 


(1,3, 2,3], which is a new double coset. 


Lemma 4.18. tyt3tota = tetatots = tetatyts = tets. 
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Proof. tyt3tot, = tetatota by Lemma 
tetatota = tetatyts by Lemma 
tetatits = tets by Lemma 


=> tyt3tot, = tets 


From the fourth set of orbits of N“@3:2) we get the right coset Nt t3tats. 
Ntyto( 6)(2, 5)(3, 4) — Ntots = Ntytstot4 by Lemma 4.18} therefore Ntytstot4 € [ 1, 


2]. 


From the fifth set of orbits of N@3:2) we get the right coset Nttgtots. 


Ntyt3tets = Ntit3 € [ 1,3 ] since tots = totete = e. 


Lemma 4.19. tyt3tote = tytets = tyt5t3te = tot4atsta. 


Proof. titgtotg = tit3t3ts by Lemma [4.12] 
tytgt3ts = tytgts since t2 = te. 

titgts = titetate since t} = ts. 

tytgtet2 = tytst3t2 by Lemma|4.14] 
titst3tg = totatgt2 by Lemma|4.16] 


From the sixth set of orbits of N32) we get the right coset Nt tgtatg. 
This gives us N(tytgtoty) 2, 3, 4, 5, 6) = Ntotat3ta = Ntytgtoate by Lemma 4.19} 


therefore Ntyt3tate € [1, 3, 2, 1]. 
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PS eae 


Figure 4.4: Double Cosets of [{1, 3, 2] 


4.2.5 Double Coset [1,2] 


The stabilizing group if Ntjtz2, denoted by N,“:?) > ( e ), which means 
[1, 2]| = |NJ+|NG-?)| < 12+1 = 12. We know the orbits of ( e ) on X are {1}, { 
2}, {3}, {4}, {5}, and {6}. From the first set of orbits we get the Nt tot; right 


coset. Therefore, Ntitati € [1, 2, 1], which is a new double coset. 


From the second set of orbits we get Nt tate right coset and Nt tote = 


Ntyts. (Ntit3)@ 9G: 5) — Ntyts, therefore Ntit3 € [1, 3]. 
Lemma 4.20. Nétitot3 right coset € /1,3, 2, 1]. 

Proof. tytotz = tytetgte since tz = tetg. 

tytotete = ty t3t5te by Lemma 


ty t3t5te = tetatste by Lemma 
Nigtatste(> 6)(2, 5)(3, 4) — Ntytgtoty = > Ntetatste © ae 3, 2, 1). 
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From the third set of orbits we get the Ntitat3 right coset € [1, 3, 2, 1]. 
The fourth set of orbits yield Ntytgts. Nttotg@ 2,3 45 6) = Netytsta € [1, 2] as 


seen before. Therefore, Ntitata € [1, 2]. 


The fifth set of orbits yield Nt,tots. Ntjtets = Nt, since to! = ts, which 


implies Ntitats € [1]. 


The sixth orbit yields Nty tate. Nty tate = Nt t3ts by Lemma Nt t3ts 


€ [1,3, 2] as seen before. Hence, Ntitatg € [1, 3, 2]. 


Figure 4.5: Double Coset [1, 2] 


4.2.6 Double Coset [1,2,1] 
Lemma 4.21. tyteaty = t4atsta. 


Proof. tytoty = tyteety = tytetatit, by Lemma 2. 


tytotaty ty = tytyt5t t by Lemma 
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tytytstyty = tytytsetyty = tytytststotyty by Lemma |4.11 
tytytststotyty = tytytsetyty by Lemma 


tytytstit, = tatst4 ( Lemma 4.10) tty = ta => thteti = tatsty. 


Lemma 4.22. tytoty = totyte = t5tats. 


Proof. tytgt, = tyt5ts5t, since ie = to. 
tytstst, = tot4tst, ( Lemma|4.16)). 
totatst; = tyt4tat, ( Lemma|4.17)). 
totatata = totite since ta= tit. 

— > tytoty = totyte. 


tytoty = tatsta ( Lemma iy — (titeti = tatsta) 2)(3, 6)(4, 5) => 


totito = tstats. 


Let the stabilizing group of Ntyt2t; be denoted by N24), N(tytoty) 4)(2, 5)(3, 6) 
= Ntstats = Ntytot, by Lemma|4.22| therefore (1, 4)(2, 5)(3, 6) €NG@2)), N(tytaty)( IG 94, 9) 
= Ntgtst4 = Ntytgt; by Lemma|4.21| this proves (1, 2)(3, 6)(4, 5) € NG?) NG.2.1) 
> ( (1, 4)(2, 5)(3, 6), (1, 2)(8, 6)(4, 5) ), which has an order of 4. Consequently, 
2.1) = TEA < 2 =3. The orbits of N(12-1) on X are = {3, 6}, and {1,5,4,2}. 


The second set of orbits yield Ntytetyt1, Nty tat ta, Ntytotyta, and Ntytotyts, 


which belong to the same double coset. 


Lemma 4.23. Nt totit,, Ntitotite, Ntitetyt4, Ntitetits © pe 2). 


Proof. Ntytgtit4 = Ntytge ( Lemma — 
Ntytatyts € [L 2] => 


Néytotit1, Ntitotite, Ntztotita, and Ntytotits € [1, 2]. 
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The first set of orbits yield Nt,tgt itz and Nt, totytg cosets, which belong 


to the same double coset. 
Lemma 4.24. Nt totit3, Ntitetite © a By. 2s eae 


Lemma 4.25. Ntitotits € /1, 3, 2, 3). 


Proof. tytgtit3 = tytateta by Lemma [4.15] 
tytatgt4 = tyt3tst4 by Lemma|4.12] 
tytgtst4 = tetatst4 by Lemma/4.15} => 
N(tgtatsta)“ 92: 5G: 4) — Ne tgtetz. —> 


Nt, totit3 = Ntgtatsta € [ty 3, 2, 3] => 


Nt totjt3 and Ntytotitg € (1, 3, 2, 3]. 


Figure 4.6: Double Coset [1, 2, 1] 
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Lemma 4.26. tstets = tatgte. 


Proof. By Lemma tytoty = tatst4 => 


(titot) = tatsta)@ 5 92 6,4) 


tstgts = totgto. 


Lemma 4.27. tytgtot3 = tytstets. 


Proof. tyt3tatz = titgtstst3 since to = ¢2. 
titgtststz = titgtetsts (Lemma|4.12). 
titotgtstz = tytotgtet, (Lemma|4.14). 
tytotetet2 = titotgte since te = t2. 
tytotgty = tytstets (Lemma|4.26). 


tytgtots = tytstets. 


Let the stabilizing group if Ntyt3t3t3 be denoted by N(3:2.3), N(t,tgtat3)( 9@: 5) 
= Ntytstets = Ntitstets by Lemma 4.27 therefore (2, 6)(3, 5) € N(13,2,3)_ N(13,2,3) 
> ( (2, 6)(3, 5) ), which has an order of 2. This proves |[1,2,1]] = Wasa ao = 
6. Hence, the orbits of N(3:3) on X are {1}, {4}, {2, 6}, and {3,5}. The first 


orbit yields the Ntt3tat3t, coset. 


Lemma 4.28. Nt ts3tot3ty © We 2, il, 


Proof. tytgtat3t, = tetatatst, ( Lemma|4.15]). 
tgtatgtgt, = tetstit3t, ( Lemma|4.17)). 
tgtstytgt, = tetstgtat, ( Lemma|4.15)). 
tgttetat1 = tetstee ( Lemma|4.1]]). tati = e. 


= > Ntytstetst, = Ntetste. 
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=> Note that N(tytoty) 6)(2, 5)@, 4) — Ntetste = Nt tstatst1 


=> Ntytstetst, € (1, 2: ile 


The second orbit yields the Ntit3tgt3t4 coset. 


Lemma 4.29. Nt ts3tet3ta € ee By 25 3]. 


Proof. tytgtotgt4 = tyt3tatgtt, by notation. 
titgtgtgtit, = titgtetatet: (Lemma[4.13). 
titgtotatet: = titstitstet: (Lemma|(4.16). 
titgtitstet: = titatetstet: (Lemma|4.13). 
titatetstet: = etetstet: (Lemma|4.11). 
tgt5tet, = tetstst3t; by notation. 
tgtstgtgt, = tetetatzt, (Lemma|4.12). 
tgtgtat3t; = tgtetst; by notation. 
tgtotgt; = t3tatats (Lemma4.11). 
tgtotate = tgtitsts (Lemma|4.14). 
tgtitst = tatgtsts (Lemma|4.11). 


tatgtste = titgtotsta. 


Now N(tyt3tot3)@ 4)(2, 5)(3, 6) — Ntatetste, therefore Ntgtgtste = Ntytgtotst4 


@ |l, 3,2, 3). 
Lemma 4.30. Nit tstot3te, Ntitstatste © i, 3; ae 


The third set of orbits yield Nt,tgtotst2 and Nt, t3tet3tg cosets, which 


belong to the same double coset. 
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Proof. tytgtot3tg = tytgtee since t3tg = 1. => 


Ntytgtotstg = Ntytsteo € ae 3, 2]. = 


Ntit3tot3te € (1, 3, 2). 


The fourth set of orbits yield Ntitgtagt3tz and Nt t3tatg3ts cosets, which 


belong to the same double coset. 


Lemma 4.31. Nt tsgtotgt3, Ntitgtetsts © id, by ey 1]. 


Proof. titgtot3t3 = tyt3totg since a = te. 
N(tyt3tgt,)“ 2, 3, 4,5, 6) — Ntotatgto = Ntytgtoate (Lemma 4.19). =>? 
Ntytgtotg€ [1, 3, 2, 1]. => 


Ntytgtotg = Ntytgtetsts © (1, 3, 2, 1). =>? 


Ntytgtotsts € (1, 3, 2, LI, 
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[1, 3, 2, 3] 


Figure 4.7: Double Cosets of [1, 3, 2, 3] 


4.2.7 Double Coset [1,3,2,1] 

The stabilizing group if Nt,t2, denoted by NC3:2-D >(e ), therefore |[1, 
3, 2, 1]| = |N|-+|N@32-D| < 12+1 = 12. The orbits ( e ) on X are {1}, { 2} , {3}, 
{4}, {5}, {6}. 


From the first set of orbits we get Ntit3tet it, right coset. 
Lemma 4.32. Nt tgtotit, € ee ae 


Proof. Nt t3tatit; = Ntit3tet, since t? = ty. 


Nty to 6)(2, 5)(3, 4) — Ntgts = Ntitstot,4 (Lemma 4.18) = 


Ntyt3tet, = Ntit3tetit; € [ ieee le 


From the second set of orbits we get Nt, tstot ta right coset. 
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Lemma 4.33. Nit tstotite € oe 3, ae 


Proof. titgtate = tztat3t2 (Lemma|4.19) => 
(tytgtatg) > 6, 5, 4, 3, 2) _ (tatatgt2) > 6, 5,4, 3,2) 
tetatits = titstety 

tytgtatite = tetotitste 

tgtatitste = tetotie = telat, => 

tyt3totite = tetety. 

Néyigto": 2 3 45, 8) = Négtot: —> 


Ntgtoti € [ 1, 3, 2 ] => 


Ntgtot; = Ntitsgtetite € [ es ye I. 


From the third set of orbits we get the Nt, tstot ts right coset and Ntyts3tot)t3 
2 (1,3, 9)4, 31; 


From the fourth set of orbits we get the the Ntit3tatit, right coset. Now 


tytgtotiyt, = tytgtee => = Nt ts3tetyt, = Ntitste € [ 1, 3, 2). 


From the fifth set of orbits we get the Nt, tgtotyts right coset. 
Lemma 4.34. Nt ts3tetits € Pay ones a 


Proof. tytstotyts = tyt3tatota ( Lemma 4.16) ) 7 


tyt3totot, = tyt3tst4 since t2? = ts. 


tyt3tsta = tytoteta f Lemma " 
tytoteta = tytotits ( Lemma ve => 
Ntytgtotyts = Nt totits € ee 3, 2, 3] ( Lemma |4.24] "e L] 


From the sixth set of orbits we get the Ntits3tat te right coset. 
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Lemma 4.35. Nt tstotitg © oe 3, 2, 1 /. 


Proof. tit3tatite = tetatetite ( Lemma Ve 
tgtatgtite = tetstitits ( Lemma|4.17)). 
tetstitits = tetstate since t? = ty. 

tgtstate = tetst3t, ( Lemma4.13}). 

tgtst3t, = tetetot, ( Lemma|4.14]). 

tetetet: = t3tat: by since t2 = te. 

tgtoty = tgtststy since to = #. 

tgtstst; = ttstat2 ( Lemma|4.17)). 

By Lemma[4.19]t,t3tete = titst3t2 —> 
(tytgtotg)E35249) = (ttgtgt,)t35246) 
tgtstato = tatgtsts —> tatetsta = tytgtotrte . 


Néytgtgty 142566) = Ntgtetst4 —> 


Ntgtgtst4 = Nt tgtotitg © [ 1, 3, 2, 1 iP 
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Figure 4.8: Double Cosets of [1, 3, 2, 1, ] 


4.2.8 Double Coset [1,3,2,1,3] 
Lemma 4.36. tytgtotyts = tetotytete. 


Proof. ty t3tote = tot4at3to ( Lemma ) = (titstote = totatgtg) 6, 5, 4, 3, 2) 
=> tetotits = titstety. 
tytgtotitz = tetotitsts 


tetotytst3 = tetatytete ( Lemma vs, 


Let NG 3; 2, 1, 3) be the group stabilizer of Nt t3tatyts. Nt tgtoti ts 6, 5, 4, 3, 2) 
= Négtgtyteta = Ntitgtetits, therefore (1, 6,5, 4,3,2)¢ NG 3:2, 1,3), Hence, NCL 3 2,13) > 
1, 6, 5, 4, 3, 2)), which proves | [1, 3, 2, 1, 3] |= —WL < 2 =2. The orbit 
ING3.2,13)] = 6 


of ( (1, 6, 5, 4, 3, 2)) is {1, 2, 3, 4, 5, 6} which yields Ntytgtotit3t1, Ntitgtetitsty, 
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Ntytgtotitgt4, Ntitgtetytsts, and Nt, tstot;t3t¢ right cosets, all which belong to the 
same double coset. 

Now Ntit3totitsts = Ntitstatie by notation, therefore Nt, t3tot t3te6 
E [1, 3, 2, 1]. This proves Ntytgtotit3t, Ntitstotitgti, Ntitgtotit3ta, Ntittotitsts 


ily 2. 


(1, 3, 2, 3] 


Figure 4.9: Complete Cayley Diagram of 3:(2 55) Over Dypo. 


From the Cayley diagram of G over N shown above we conclude |G| = 
(ICI + (CAI + IL, 201 + IE, 31 + IE, 2, Ul + IE, 3, 21 + IT, 3, 2, UI) + IE, 3, 2, 
1]| + |[1, 3, 2, 1, 3]|)|N|. Therefore |G] < (1+64+12+6+3+4124124+64 
2)(12) = 60(12) = 720. 
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4.3. A Permutation Representation of 3:(2x S;) 


The Cayley diagram of G over N shows that there are 60 distinct right 
cosets. To find a permutation representation of G we assign a numeric label from 
1 to 60 to each right cosets obtained from Cayley diagram. Next, conjugate all of 
the 60 right cosets by x to get a permutation of the 60 right cosets (corresponding 
numeric values are recorded) . Of course, this gives a permutation of S¢9. Repeat- 
ing the process for y will produce a second permutation of Sg9. To find a third 
permutation, multiply each right coset by t, and find the equivalent coset to the 
products. 

The following proof is an example of how to find all equivalent right cosets 
conjugated by x. All of the proofs for the mappings in the table below are similar 


to the proof below. 
Lemma 4.37. Nigtits = Ntitet: = Ntstats = Ntatsta. 


Proof. Ntytoty = N(titaty)" vn € NOL21) > ( e, (1, 4)(2, 5)(8, 6), (1, 2)(3, 6)(4, 
5), (1, 5)(2, 4)) => Niytety = Nts5tats = Ntgtst4 = Ntotite => 


N(tytat1)* — Ntstats )* = N(tatsta)* = N(totito)* => 


Ntgtite = Ntytgt = Ntgtatz = Ntgtsta. 


Next we will construct f(x) by conjugating the right cosets of our group 


by x 
Right Coset conjugated 
Label | Right Coset Label 
by x. 
1 N N 1 
2 Nty Nt 4 


3 Nta Nts 6 
4 Nto Nt3 7 
5 Nt6 Nty 2 
6 Nts Nt¢ 5 
7 Nt3 Nta 3 
8 Ntoty Ntgte 16 
9 Ntits = Ntota Ntotg = Ntsts 19 
10 Nteti Néyt2 val 
11 Ntgta = Ntyts Ntits = Ntota 9 
12 Ntsty = Ntate Nieto = Ntsts 20 
13 Ntsta Ntgts 22 
14 Nt3ty = Ntate Ntato = Ntsty 12 
15 Ntgt4 Ntats 25 
16 Ntgte Ntatg 24 
17 Ntste Ntgti 10 
18 Ntite Ntoty 8 
19 Ntgtg = Ntsts Nt3t1 = Ntate 14 
20 Ntgt2 = Ntsts Ntit3 = Ntgta 11 
21 Ntyto Ntot3 23 
wD Ntgts Ntyt¢ 18 
23 Ntot3 Ntgta 15 
24 Ntatg Ntsta 13 
25 Ntats Ntste 17 
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26 Ntgtgtst4 Nt5titets 40 
27 Ntgtgts Nt5t1 te 43 
28 Ntgtotst,4 Nt5tgtats 45 
29 Ntgtots Nts5tgt4 34 
Nigtits = Nitjtet) = | Nijtot) = Ntstats = 
30 35 
Ntgtatg = Ntgtst4 Ntgtst4 = Ntotyte 
31 Ntotgti Ntgtyto 44 
32 Ntgt5t4 Ntgtgts 27 
33 Ntgetoti Ntytste 36 
34 Nt5t3ta Ntetats 48 
Nigtitg = Nitgtstg = | Nigtot3 = Nigtstg = 
35 46 
Ntstats = Ntytot, Ntstgts = Ntotste 
36 Ntytsto Ntotats 47 
37 Ntytgtoty Ntotatste 49 
38 Ntyts5te Ntoteti 31 
39 Ntyts5tety Ntotgtite 52 
40 Nt5tytets Ntetotite ol 
Al Ntgtytots Ntgtotst,4 28 
42 Ntgt5tat3 Ntatgtst4 26 
43 Ntstite Ntetot 33 
44 Ntgt te Ntatoat3 29 
45 Nts5tgtats Ntetatste 50 
Nizstot3 = Nigtstg = | Ntgt3tg = Négtat3 = 
46 30 


Ntstgts = Ntotste 


Nt tet; = Ntgtyte 
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AT Ntgtats Ntgtsta aD 
48 Ntgtats Ntytstg 38 
49 Ntotatste Ntgtstats 42 
50 Ntgtatste Ntytstety 39 
51 Ntgtatite Ntytgtoty 37 
52 Ntotetite Ntgtytots Al 
Néstitetst; = Nigtotitets = | Ntgtotiteto = Nitatatits = 


53 Ntitgtotyts = Ntotgtstot, = | Ntotatgtot, = Ntgtstatsts = | 53 


Nigtetstate = Nigtstatgts | Ntstytgtst; = Ntatgtstate 
Nt3tytot3t; = Ntgtotstato = | Ntatotstate = Ntstatatst3 = 


54 Ntststatsts = Ntgtatstgta = | Ntgtatsteta = Ntytstetits = | 54 


Ntotgtitots = Néitstgtits | Ntatitetat, = Ntotet tote 


55 Ntotgtits = Ntotatsta Ntgtytot, = Ntgtstats 57 
56 Ntstiteti = Ntstgtats Ntgtatita = Ntetatsta 58 
57 Né3tytot, = Ntgtstats Ntatotst2 = Ntatetste 59 
58 Ntgtotite = Ntgtatsta Ntytgtots = Ntytstgts 60 
59 Ntatotste = Ntatetste Ntstgtatz = Ntstitgty 56 
60 Ntytstgts = Ntytgtots Ntotgtits = Ntotatsta 55 


Table 4.3: Construction of f(x). 


There exists a homomorphism f(G) — Sgo. From the table we extract 
the permutation f(x) = (2, 4, 7, 3, 6, 5)(8, 16, 24, 13, 22, 18)(9, 19, 14, 12, 20, 
11)(10, 21, 23, 15, 25, 17)(26, 40, 51, 37, 49, 42)(27, 43, 33, 36, 47, 32)(28, 45, 50, 
39, 52, 41)(29, 34, 48, 38, 31, 44)(30, 35, 46)(55, 57, 59, 56, 58, 60). 
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Next we will construct f(y) by conjugating the right cosets of our group 


by y. 
Right Coset conjugated 
Label | Right Coset Label 
by y. 

1 N N 1 
2 Nt Nt¢ 5 
3 Nt4 Nts 7 
4 Nto Nts 6 
5 Nt6 Nty 2 
6 Nts Ntg 4 
7 Nts Nt4 3 
8 Ntoty Ntstg {7 
9 Ntot, = Ntits Ntst3 = Ntgte 20 
10 Ntgty Ntyte 18 
11 Ntit3 = Ntgta Ntgt, = Ntits 11 
12 Ntst, = Ntgte Ntotg = Ntsts 19 
13 Ntst4 Ntots 23 
14 Ntatg = Ntsty Nt3ty = Ntate 14 
15 Ntsta Ntyts 94 
16 Ntste Ntats 25 
17 Ntste Ntoty 8 
18 Ntite Ntgty 10 
19 Ntsts = Ntots Ntgto = Ntsty 12 
20 Ntgt2 = Ntsts Ntits = Ntoty 9 


21 Ntyto Ntots 22 
22 Ntots Ntyto 21 
23 Ntots Nts5t4 13 
24 Ntats Ntgtq4 15 
25 Ntats Ntgto 16 
26 Ntgtgtst Ntgty tots Al 
27 Ntgtgts Ntgtyto 44 
28 Ntagtots3t, Ntst5tat3 42 
29 Ntgtots Ntgts5t4 32 
Nigtits = Ntjtet) = |] Nitet; = Nigtite = 
30 30 
Ntgtatg = Ntgtgt,4 Ntgtgt4 = Ntstats 
31 Ntotgti Nt5tite 43 
32 Ntgts5t4 Ntgtots 29 
33 Ntgetoty Ntytste 38 
34 Nt5tgt4 Ntotats 47 
Nijtat; = Nitstgts = | Nigtstg = Négtot3 = 
35 46 
Ntgtst4 = Ntogtyte Ntgtatg = Ntstets 
36 Ntytsto Ntetats 48 
37 Ntytgtoty Ntetatste 50 
38 Ntyt5te Ntetot 33 
39 Ntyts5tet1 Ntgetotite ol 
40 Nt5tytets Ntotgtite 52 
41 Ntgtytot3 Ntgtgtst4 26 
42 Ntgt5tat3 Ntgtotst4 28 
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43 Ntstit Ntotgty 31 

44 Ntztyte Ntatets 27 

45 Ntstgtats Ntotatste 49 
Nistets5 = Ntot3t2 = | Ntotitg = Ntgtsty = 

46 35 
Nigtat3 = Ntetste Ntstats = Ntytet) 

A7 Ntotats Ntstst4 34 

48 Ntgtats Ntyt3to 36 

49 Ntotatg3te Ntstgtats 45 

50 Ntgtatste Ntyts3toty 37 

ol Ntgetotite Ntyts5tet1 39 

52 Ntotgtite Ntstitgts AO 
Néytstotits = Ntotat3tot, = | Ntgtatstet4 = Niytstetits = 

53 Ntzt5tatgts = Ntatetstatg = | Ntotgtitate = Ntgtitotst; = | 54 
Ntgtotytetg = Ntstytetsty Ntstatatst3 = Ntgtotatate 
Nigtatstgt4 = Nttstetits = | Ntyt3totit3 = Ntotatstot, = 

54 Ntgtgtitate = Ntgtitetst; = | Ntgts5t4t3ts = Ntatgtstate = | 93 
Ntstgtatst3 = Ntgtotstyte Ntgtotitgtg = Ntstitetsty 

55 Ntotatst4 = Ntotgtite Ntstgt4t3 = Ntstitety 56 

56 Ntstgtat3 = Ntstytet1 Ntotatst4 = Ntotgtite 55 

57 Ntsts5tats = Ntgtytet, Ntgtotstg = Ntatgtste 59 

58 Ntgtatst4 = Ntgtotite Ntytgtet3 = Ntytstets 60 

59 Ntatgt5ts = Ntatotste Ntzstytety = Ntgtstats 57 

60 Ntytgtot3 = Ntytstets Ntgtatst4 = Ntgtotite 58 


Table 4.4: Construction of f(y). 
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From the table we extract the permutation f(y) = (2, 5)(3, 7)(4, 6)(8, 
17)(9, 20)(10, 18)(12, 19) (13, 23)(15, 24)(16, 25) (21, 22)(26, 41)(27, 44) (28, 42)(29, 
32)(31, 43) (33, 38) (34, 47)(35, 46)(36,48)(37, 50)(39, 51)(40, 52)(45, 49) (53, 54) (55, 
56)(57, 59)(58, 60). 


Next we will construct f(t) by multiplying the right cosets of our group 


by ty. 
Right Coset multiplied by 
Label | Right Coset Label 
t 

1 N Nty 1 
2 Nt Nt ty = Ntg 3 
3 Nt4 Ntat; = N it 
4 Ntg Ntoty 8 
5 Ntg Ntety 10 
6 Nts Ntst; = Ntate 12 
7 Nt3 Ntgt; = Ntate 14 
8 Ntoty Ntot, = Ntits 9 
9 Ntot, = Ntits Ntotat, = Ntotets 4 
10 Ntgt Ntgta = Ntyts 1 
Li Ntit3 = Ntgta Ntjt3t, = Ntststs 5 
12 Ntst, = Ntgte Ntsti t= Ntsta 13 
13 Ntsta Ntstat, = Ntstgt3 = Nts | 6 
14 Nitgtg = Ntsty Ntgtety 15 
15 Ntstq Ntstat; = Ntstets = Nt3 7 
16 Ntsto Ntstoty 26 


17 Nt5t¢ Ntstgty 28 
Nijigt; = Nigtite 
18 Ntyt¢ 30 
Ntgtgt4 = Ntstyts 
19 Ntgts5 = Ntote Ntgt5ty 31 
20 Ntgto = Ntsts Ntgtety 33 
Nijtot; = Neéstats 
21 Ntyto 35 
Ntgtst4 = Ntetyte 
22 Ntots Ntetsty 36 
23 Ntots Ntgt3ty 38 
24 Ntats Ntatsty 18 
25 Ntats Ntgtsty 21 
26 Ntatgtsta Ntatgtstat, = Ntatets 27 
27 Ntgtgts Ntgtgtsty 16 
28 Ntgtotst,4 Ntgtotgt4t; = Ntgteats 29 
29 Ntgtots Ntgtotsty 17 
Nigtitg = Nitet, = 
30 Ntgtitety 24 
Ntgt4t3 = Ntgtst4 
31 Ntotgty Ntotgtity = Ntoteta 32 
Niztstaty = Ntotetit, 
32 Ntgt5t4 19 
Ni3ts = Ntete 
33 Ntgetoty Ntgtotity = Ntgtota 34 
Nist3tqt; = Ntgtotit, 
34 Nts5tgt4 20 
Ntst3 = Ntgte 
Nijtot; = £Néstats = 
35 Ntytotit) = Nt tot, 25 
Ntgtst4 = Ntogtite 
36 Ntytste Nt t3tety 37 
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37 Ntytgtoty, Ntytgtotyty 22 
38 Ntytste Ntyts5tety 39 
39 Ntytstety Ntyts5tgtit1 = Nt ts5teta 23 
Nistitgtsty = Nigtotiteta = 
40 Nt5tytets Ntit3tetit3 = Ntotat3tet, = | 53 
Ntatgtstatg = Ntgtstatgts 
Ni3titot3t) = Ntatotstato = 
4] Nt gti tots Ntst3tatst3 = Ntgtatstgt4 = | 54 
Ntotetyteate = Ntytstetits 
42 Ntgt5tat Ntgts5tat3ty = Nt tstetits ats) 
43 Nt5tite Nt5tytgt, = Ntstgt4ts 56 
44 Ntgtyto Ntgtytot, = Ntgtstyts o7 
45 Nts5tgtats Ntstgtatsty = Ntitstotits 08 
Ntstets = Ntots3tg = 
46 Ntstetst; = Ntstotsty 509 
Ntgtots = Ntgtste 
47 Ntotats Ntotatsty 42 
48 Ntetats Ntetatsty 45 
49 Ntotatste Ntotatgtot, 40 
90 Ntetatste Ntetatsteti 41 
ol Ntgetotite Ntgtotiteti 43 
o2 Ntotgti te Ntotgti tot, 44 
Niji t3tatit3 = Ntgtgt3tot, = 
03 Niststat3ts = Ntatgtstate = | Nt tgtotit3t, 49 


Ntgtotitete = Ntstytetsty 
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Nigtatstet4 = Ni tstetits = 
54 Ntotgti tots = Ntgtitetgt, = | Ntetatstetat, = Ntetatste 50 
Ntstgtatst3 = Ntgtotatate 
00 Ntotatgt, = Ntotet te Ntotatgt4t; = Ntot4ts 47 
06 Ntstgtat3 = Ntstiteti Ntstgtat3ty ol 
57 Nitststats = Ntstytet, Nigtstatsty 52 
58 Ntgtatst4 = Ntetot to Ntgtatstat1 48 
09 Ntgtgtstg = Ntatotsto Ntgtgtstet, = Ntgtotstot, 60 
Ni t3tot3t) = Ntgtetstet, = 
60 Ntytgtot3 = Ntytstets 46 
Ntytstetst; = Ntgtotstot4 


Table 4.5: Construction of f(t). 
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From the table we extract the permutation f(t)= (1, 2, 3)(4, 8, 9)(5, 10, 


11)(6, 12, 13)(7, 14, 15)(16, 26, 27)(17, 28, 29)(18, 30, 24)(19, 31, 32)(20, 33, 


34)(21, 35, 25)(22, 36, 37)(23, 38, 39)(40, 53, 49)(41, 54, 50)(42, 55, 47)(43, 56, 


51)(44, 57, 52)(45, 58, 48)(46, 59, 60). 


The permutations f(x), f(y), f(t) € Sgo represent x, y, t € G, therefore |G| 


> |( f(x), f(y), f(t) ) | = 720. Combining the previous with that fact |G| < 720 to 


obtain |G| = 720. Now f(t*t¥)? = 


[F(t )E(tY) 2 = [£(t) et) F]2 = 


[(1, 2, 3)(4, 8, 


9)(5, 10, 11)(6, 12, 13)(7, 14, 15)(16, 26, 27)(17, 28, 29)(18, 30, 24)(19, 31, 32)(20, 


33, 34)(21, 35, 25)(22, 36, 37)(23, 38, 39)(40, 53, 49) (41, 54, 50)(42, 55, 47)(43, 56, 
51)(44, 57, 52)(45, 58, 48) (46, 59, 60) (2: 4, 7, 3, 6, 5)(8, 16, 24, 13, 22, 18)(9, 19, 14, 12, 20, 


11)(10, 21, 23, 15, 25, 17)(26, 40, 51, 37, 49, 42)(27, 43, 33, 36, 47, 32)(28, 45, 50, 39, 52, 41)(29, 34, 48, 


38, 31, 44)(30, 35, 46)(55, 57, 59, 56, 58, BOL: a. 3)(4, 8, 9) (5, 10, 11) (6, 1% 13)(7, 14, 
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15)(16, 26, 27)(17, 28, 29)(18, 30, 24)(19, 31, 32)(20, 33, 34)(21, 35, 25)(22, 36, 
37) (23, 38, 39)(40, 53, 49)(41, 54, 50)(42, 55, 47)(43, 56, 51)(44, 57, 52)(45, 58, 
48) (46, 59, 60) (2: 5)(3, 7)(4, 6)(8, 17)(9, 20)(10, 18)(12, 19)(13, 23)(15, 24)(16, 25)(21, 22)(26, 41) 
(27, 44)(28, 42)(29, 32)(31, 43)(33, 38)(34, 47)(35, 46) (36,48) (37, 50)(39, 51)(40, 52)(45, 49)(53, 54) 
(55,56) (57, 59)(58, 60))2 — 1(1, 4, 6)(2, 21, 9)(3, 12, 25)(5, 20, 22)(7, 16, 19)(8, 35, 
10, 45, 34)(11, 36, 48)(14, 44, 27)(15, 31, 52)(17, 23, 46)(18, 47, 49) 
32) (28, 54, 39)(29, 59, 41)(30, 56, 55)(33, 58, 37)(38, 50, 60)(42, 51, 


13 


ee. 


) 

(24, 40, 
43 ( 
53)*(1, 5, 7)(2, 18, 11)(3, 14, 24)(4, 19, 23)(6, 17, 20)(8, 42, 32)(9, 38, 47)(10, 30, 
15)(12, 43, 29)(13, 33, 51)(16, 22, 46)(21, 48, 50)(25, 41, 44)(26, 53, 37)(27, 59, 
(28, 56, 34)(31, 55, 39)(35, 57, 58)(36, 49, 60)(45, 52, 54)]? = [(1, 19)(2, 48)(3, 
43)(4, 17)(5, 6)(7, 22)(8, 57)(9, 18)(10, 52)(11, 49)(12, 41)(13, 42)(14, 25)(15, 
55)(16, 23)(20, 46)(21, 38)(24, 27)(26, 58)(28, 45)(29, 40)(30, 34)(31, 54)(32, 
53)(33, 35)(36, 50)(37, 51)(39, 56)(44, 59)(47, 60)] =e. Hence, G & ( f(x), f(y), 


) 
)Q 
) 
) 
40) 
) 
) 
) 
f(t) ) . 
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Chapter 5 


Double Coset Enumerations 


5.1 Definitions and Theorems 


Definition 5.1. A subgroup H<G is a maximal normal subgroup of G if there 


is no normal subgroup N of G with H<N<G. [Rot95] 


Lemma 5.2. If H and K are finite Groups of G and x is an element of G, then 
|\Hak|=|K| x |K|/|K* 0 Al. [Curt07/ 


5.2 Double Coset Enumeration of L2(25) Over S; 


A symmetric presentation of the progenitor 5**4 : Ss is G = (x°, y?,(x ty), 
(xyxyx)?, t°, (t, xyx?yx7), te Y= 63, (x,tt®”)2, (x¥t)4, xlyxtyxyxtxt?xt). Let 
xx = (1, 2, 4, 18, 9)(3, 13, 14, 16, 24)(6, 21, 7, 8, 10)(12, 15, 19, 20, 22) and let yy 
= (1, 21)(2, 5)(3, 19)(4, 6)(7, 15)(8, 11)(9, 13)(10, 12)(14, 17)(16, 18)(20, 23)(22, 
24). Let N = (xz, yy). MAGMA gives N = Ss. Let t = ty. 
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Theorem 5.3. L2(25) = G = (2°, y?, (ay)4, (wya*ya)?, 0, (t, aya*ya!), 1” 9 = 


t3, (x, tt”), (x¥t)4, cya lyryctat? ct). 


We perform our technique of manual double coset enumeration to G over 
N to construct G and prove that G © L2(25). Before we start our double coset 
enumeration, the relations need to be expanded. 

Now |t| = |ty| = 5 and ty3 = t® ¥ = +3, therefore (t,3)N = (ti3)N, which 


yields the following: 


Inverses: Powers: Splits: 

ty = tig? | ty? = ty, 11? = ty; t1* =t19 ti = trtig 
to = toot to? = tg, to? = tra, tot = tao tz = tgt20 
tz = tor! | t3? = tg, tz? = tis, t3* = tar t3 = totar 
ta = tog! ta? = tio, ta? = tig, ta* = too t4 = tiote2 
ts = tog” tetas te Shays to — ts ts = tite3 
te = toa! | te? = tro, te? = tig, te* = tog te = tigted 
te = tig? | ty? = tag, t7? = tay ty* = tag t7 = tigtis 
tg = tia! | tg? = too, tg? = te, te? = tr tgs = tooti4 
to = tis | tg? = tor, to® = tg, to? = tis tg = tortis 
tio = tig’ | tio? = tae, tio? = ta, tio = tie | tio = toatig 
tae tay | ti? Stag, tia? = te, ta = tay) ta, = tasty 
tig = tig! | tio? = toa, tia? = te, trot = tig | tie = toatig 
t13 = t7! ti3” = ti, t13° = tig, tiz* = ty | ti3 = tity 
tite ae tay bia” toy tia Ste tia = tats 
tis = tg’ | tis? = tg, tis® = tar, tis? = to | tis = tatg 


tig = tio’ | tig? = ta, tig? = tag, tig’ = tio | tig = tatio 


ti7 = tir’ | ti7? = ts, ti7? = tes, ti7* = tu | ti7 = tstu 


ig Sto |) ag Sei = bes es Se || tas Stata 


io ti tio” = tia,t10° = ty, t19° = ty tig = tigty 


too = to! too” = tia, tao? = ts, toot = te to90 = trate 


to: = ts! toi? = tis, tar? = to, tat = ts toi = tists 


top = tet too? = tig, tae? = tio, tart = ta | too = trots 


to3 = ts! to3? = ti7, tag? = tir, to34 = ts | te3 = ti7ts 


to = te | toa? = tig, toa? = tia, toast = te | tos = tists 


Table 5.1: Powers of t. 


Lemma 5.4. tg ta ta2 t19 = tytataotts. 


Proof. From the relation (xtytyx titty 7)? = 6 => 
(xtytaxttglty+)? = (xtitax'teatig)? —> 

(x(x (tita)t® )teoti9)? = (totetrati9)? =e => 
totataatigtgtatartig =e => 

totatertig = tig tate to! => 


totateatig = tytateotis by substituting the inverses. 
Lemma 5.5. tyjotg = yx! ytyotss and trot, = yxrytyoto. 


Proof. From the relation (x¥t1)* =e —> 
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Let p = x¥ ~ (1,15, 11, 12, 4)(3, 23, 24, 10, 7)(5, 6, 16, 13, 21)(9, 17, 18, 22, 19) => 
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ptiptip(tip)ti = ptiptip(pti?)t1 ==> 
ptip(tip?)ti?t1 = ptip(p?t1” )trPt, => 
p(tip® ti” ti?t: = p(p ta?” yt” tit, 
pity? ty tPt, = yxtytititist; =e => 
yx tytiotitistity tis? = etyttis? — 
yxtytyti = tr'tis’ = 


yx lytiti1 = tigt) => 


(yxty)tyxytieti = (yxty)'tigta => tioti = yxytigty. 


Lemma 5.6. tjts = yx” ye” yt1g and tig = yr’ yx yt, te. 


Proof. From the relation xlyxlyxyxt,xtit1xt1 =e =>> 
xlyxtyxyx(t, x)t?xt, = xtyxtyxyx(xt1*)titpxt; —> 
xlyxlyxyxx(ti*)titixt; = xtyxlyxyxx(t2)titixt, —> 
xlyxlyxyxx(tetitpx)t, = xtyxlyxyxx(x(tetit1)*)t. => 
x lyxlyxyxxxtatatety = x lyxlyxyxxxtatgt1 =>? 
xlyxlyxyxxxtatgt, = y x?yx?ytatgty =e —> 
yx7yxytatgtitig = etig => 

(yx? yxy) tyx?yx?ytatgtitig = (yx?yx7y) "tig > 


igeycyx vie ==> 


(yx?yx?y)ltatg = (yx2yx2y)lyx?yx’ytig —> yx?yxytatg = tig. 


In what follows, we will denote the number of right cosets in the double 
coset [w] by |[w]]. The only right coset of NeN = [*] is N, therefore |[*]| = 1, which 


is symbolized by placing “1” inside the circle representing [*]. The stabilizer of N 
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is N. The only orbit of N is {1, 2, 3, ...., 23, 24}, which yields the cosets Nt, Nto, 
Ntg, ... Ntg3, Ntga € [1]. This is symbolized by placing a “24” next to the circle 


representing [*] in the diagram below. 


[*] [1] 


Figure 5.1: Double Cosets [+] 


Let N! be the point stabilizer of 1 over N, therefore N! =( (2, 11, 9, 22, 
12)(3, 10, 6, 14, 5)(4, 18, 20, 17, 15)(8, 23, 21, 16, 24)) . N@) = NI! since there 
are no relations such that tj = t; where 0 < i,j < 6. The double cosets of [1] are 
Nt, Ntg, Nts, .... Ntg3, and Nto4 which verifies |[1]| = 24. This is symbolized by 
placing a “24” inside the circle representing [1] in the diagram. Now the orbits of 
NOY on Xt 1, B98, 04 Dare { 1). 7 1,4 19 1, 1 101 to, 19,99, D1 
\.-{ 3,5, 14, 6, 10 }, { 4, 15, 17, 20, 18 }, { 8, 24; 16, 21, 22 }. 


The first orbit yields Nt;t; = Nt7eé [1], therefore Nt,t; € [1]. The second 
orbit yields Nt;t7 = Nt13 € [1], which means Ntjt7 € [1]. The third orbit yields 
Nt iti3 = Nti9 € [i], which shows Nt t13 € [1]. The fourth orbit yields Nt jti9 = 


Ne = N € [*], which proves Ntitig € [*]. 
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14441 


["] [1] 


Figure 5.2: DCE up to the Fourth Orbit of [1]. 


For the double coset [w], we need only determine the double coset of the 
right coset Nwt; for one representative t; for each orbit of the stabilizer group N“) 
of the coset Nw. The fifth orbit yields Ntit2, Ntiti2, Ntite2, Ntitg, Ntiti: € [1,2], 
since Ntjt2 € [1,2]. 


1+1+1 


C1] [1] 1, 2) 


Figure 5.3: DCE up to the Fifth Orbit of [1]. 


The sixth orbit yields Ntit3, Ntits, Ntitia4, Ntitig, Ntitio € [1,3]. 
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[1, 2] 


Figure 5.4: DCE up to the Sixth Orbit of [1]. 


The seventh orbit yields Ntyta, Ntyt15, Ntyt17, Nt1t20, Ntitig — [1,3]. It 


suffices to show Ntyt4 € [1,3]. 
Lemma 5.7. Ntit4 € /1, 3]. 


Proof. Let p = (1, 19)(2, 4)(3, 23)(5, 21)(6, 24)(7, 13)(8, 10)(9, 17)(11, 15)(12, 
18)(14, 16)(20, 22) EN. tig = yx*yxytatg ( Lemmal5.6}) then (tig)? = (xyx*yxlyytatg)? 
= t, = xyx?yx'lytetyo. 

tits = xyx*yx"'ytatiota 

xyx’yxlytatiota = xyx’yxtytetig since tig = tiopta —> 


Ntit4 € [ 1,3 ] since N(tati¢)” = Nt t3, where n = (112, 2)(3, 23, 16)(4, 9, 17), 


10, 21)(6, 14, 13)(7, 24, 8)(11, 22, 15)(18, 20,19). 
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[1, 2] 


Figure 5.5: DCE up to the Eighth Orbit of [1]. 


The eighth orbit yields Ntjtg, Ntjt24, Ntit16, Ntjt21, Nt jt23 E i. 
Lemma 5.8. Nits € /1/. 


Proof. Let p = (1, 15, 11, 12, 4)(3, 23, 24, 10, 7)(5, 6, 16, 13, 21)(9, 17, 18, 22, 
19) EN. tatg = yx?yx”ytig ( Lemma |5.6) then (tatg)? = (yx”yxyti9)? —> tits 
= yxyx?yty => 


Ntitg € [ 1] since N(tg)" € [1 ], where n = (1,2, 4, 18, 9)(3, 13, 14, 16, 24)(6, 21, 


7, 8, 10)(12, 15, 19, 20, 22). 
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14+14+1+5 


[1, 2] 
Figure 5.6: Double Cosets [1] 


Let N! be the point stabilizer of 1 and 2 over N, then N!? = (e) . 


Lemma 5.9. (1, 6, 15, 23, 20, 10)(2, 16, 19, 24, 9, 5)(3, 17, 14, 22, 7, 12)(4, 18, 
18, 21, 11, 8), (1,16)(2, 6)(3, 11)(4, 7)(5, 15)(8, 12)(9, 23)(10, 19)(13, 22) (14, 
18) (17, 21)(20,24) and (1, 6, 15, 23, 20, 10)(2, 16, 19, 24, 9, 5)(3, 17, 14, 22, 7, 
12)(4, 18, 18, 21, 11, 8) € NG), 


Proof. Let p = (1, 20, 12, 9, 17)(2, 18, 15, 11, 19)(3, 23, 13, 8, 6){5, 7, 14, 24, 21) 
EN. tig = yx*yx’ytatg (Lemma 5.6) then (ti9)P = (yx*yx?ytatg)? —> 

to = yx?yx lyxtate => 

tite = yx’yx lyxtiotate => 

yx?yx lyxtigtatg = yx?yx lyxtigte since tiota = ts —> 

Nt to = Ntigete. 


Let n = (1,16)(2, 6)(3, 11)(4, 7)(5, 15)(8, 12)(9, 23)(10, 19)(13, 22)(14, 18)(17, 


21)(20,24) — N => Ntjto => (Ntiete)” =— ne NG,L2). 
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Proof. Let n = (1, 6, 15, 23, 20, 10)(2, 16, 19, 24, 9, 5)(3, 17, 14, 22, 7, 12)(4, 13, 
18, 21, 11, 8) e N@), 

Let p = (1, 19)(2, 4)(8, 23)(5, 21)(6, 24)(7, 13)(8, 10)(9, 17)(11, 15)(12,18)(14, 
16)(20, 22) EN. 

tig = yx"yx’ytatg (Lemma 5.6) then (t19)? = (yx?yxytatg)? —> 

t, = xyx’yxlytatig — 

tity = xyx’yxytatiote 

Let p = (1, 23, 18, 21)(2, 14, 20, 8)(3, 19, 5, 12)(4, 10, 22, 16)(6, 15, 7, 17)(9, 18, 
11, 24) EN. 

tats = yx”yx”ytig ( Lemma|5.6) then (tatg)? = (yx?yxyt19)P —> 

tiotg = yx?yxyx!t; —> 

xyx’yx lytatiote = xyx’yx lytotyx2yxyx ts =>? 

tite = yx'yx*tiots => 

Ntyt2 = Ntiots. 


Let n = (1, 6, 15, 23, 20, 10)(2, 16, 19, 24, 9, 5)(3, 17, 14, 22, 7, 12)(4, 13, 18, 21, 


11, 8) EN. Ntito = (Niots) => ne NO), 


N(2) > ( (1, 6, 15, 23, 20, 10)(2, 16, 19, 24, 9, 5)(3, 17, 14, 22, 7, 12)(4, 
13, 18, 21, 11, 8), (1,16)(2, 6)(3, 11)(4, 7)(5, 15)(8, 12)(9, 23)(10, 19)(13, 22)(14, 
18) (17, 21)(20,24) ), therefore |P| = 12. This proves |[1,2]] = |N|+|N(@?)| < 120+12 
= 10. 
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1+14+1+5 


[1, 2] 


Figure 5.7: Size of [1,2]. 


Now the obits of N@-?) on X = { 1, 2,... ,23, 24 } are {1, 24, 5, 20, 9, 19, 
23, 15, 10, 2, 6, 16} and {3, 4, 18, 7, 13, 8, 22, 14, 12, 21, 17, 11}. 

The first orbit yields Nt tat;, Nty totes, Nti tats, Ntitatag, Ntitatg, Nt tetr9, 
Ntitgte3, Ntytgty5, Ntytgtyo, Ntytgte, Ntytotg, and Ntytetig. Since N¢tytete9 = 


Nt; € [1], because Ntjtgta9 = Nti tats" ( since lig = tao ) =Nt€ [1]. 
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14+14+1+5 


Figure 5.8: DCE up to the First Orbit of [1,2]. 


The second orbit yields Ntj tats, Ntytota, Ntjtotis, Ntytatz, Ntjtoti3, 


Ntitotg, Ntitete2, Ntiteti4, Ntitetie, Ntitete:, Ntiteti7, Ntiteti € (1, a: 


Lemma 5.10. Ntjtat3 € /1, 3). 


Proof. Let p = (1, 17, 18)(2, 15, 4)(3, 10, 8)(5, 6, 7)(9, 22, 20)(11, 12, 19)(13, 23, 
24)(14, 21, 16) € N. 

tatg = yx7yx”ytig ( Lemma |5.6) then (tats)? = (yx”yxyti9)P. —> 

tet3 = x? yx ty. => 

tytet3 = x?yx?t73t11. 

Let n = (1, 7, 19, 13)(2, 14, 20, 8)(3, 18, 16, 11)(4, 23,9, 6)(5, 15, 24, 22)(10, 17, 
21,12). => (titet3)® = (x?yx*tigti)" —> 


trtiatig = yx 'yx’ytits. 
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Let p = (1, 13, 19, 7)(2, 8, 20, 14)(3, 11, 16, 18)(4, 6, 9, 23)(5, 22, 24,15)(10, 12, 
ii =i 


(trtiatig)P = (yx lyx*ytit3)P = 


titets = x?yx*tisti = yx lyx?y(tits)P. 


14+14+14+5 


[1, 2] 


Figure 5.9: DCE of [1, 2] 


Lemma 5.11. Ntzt, = Nets. 


Proof. Let p = (1, 19)(2, 15)(3, 8)(4, 12)(5, 23)(6, 16)(7, 13)(9, 20)(10, 24)(11, 
17)(14, 21) (18, 22) € N. 

tig = yx°yxytats (Lemma [5.6) where yx?yx?y ~ (1, 8)(2, 13)(3, 17)(4, 24)(5, 
9)(6, 22)(7, 20)(10, 18)(11, 21)(12, 16)(14, 19) 
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(15, 23) => (tig)? = (yx?yx?ytatg)P —> 

t, = yxyx?yx!t1ot3 where yxyx*yx! ~ (1, 23, 18, 21)(2, 14, 20, 8)(3, 19, 5, 12)(4, 
10, 22, 16)(6, 15, 7, 17)(9, 13, 11, 24) — > tits = yxyx?yxttotst3. 

Let p = (1, 18, 15)(2, 11, 4)(3, 7, 6)(5, 16, 14)(8, 23, 10)(9, 19, 12)(13, 24,21)(17, 
22,20) eN => 

tig = yx’yxytatg ( Lemma |5.6) then (ti9)P = (yx?yxytatg)P => 

tig = x*yxyxtytetes; where x2yxyxly ~ (1, 13, 19, 7)(2, 23, 18, 10)(3, 9, 
21, 15)(4, 14, 11, 24)(5, 12, 16, 20)(6, 22, 8, 17) — —_yxyx?yx'tyot3t3 = 
(yaya? ya) (a? yayaty) 

totogt3tz = xtyx’yt otegt3t3, where a lyx?y~ (1, 18,15)(2, 11, 4)(3, 7, 6) 

(5, 16, 14)(8, 23, 10)(9, 19, 12)(13, 24, 21)(17, 22, 20). 

Let p = (1, 5, 4, 24, 20, 3)(2, 21, 19, 23, 22, 6)(7, 11, 10, 18, 14, 9)(8, 15, 13, 17, 
16, 12) EN. 

tig = yx”yxytatg ( Lemma|5.6] ) then (t19)P = (yx ?yx?ytatg)P —> 

to3 = yx lyxyx?toatis where yxlyxyx? ~ (1, 13, 19, 7)(2, 8, 20, 14)(3, 11, 
16, 18)(4, 6, 9, 23)(5, 22, 24, 15)(10, 12, 21, 17) — > x1 yx’yteteststz = 
x lyx?ytoyx lyxyx? 

toatist3t3 ==> 

xlyx’ytotestst3 = x?yx?tetortistgtz = x7yx?tgtostost3 = x yx? tgtes since torts 
= Id(N). 

Let p = (1, 6, 15, 23, 20, 10)(2, 16, 19, 24, 9, 5)(3, 17, 14, 22, 7, 12)(4, 13, 18, 21, 
11,8) EN. 

tig = yx”yxytatg ( Lemma |5.6) then (t19)P = (yx?yx?ytatg)P —> 


toa = yx*yxtyxti3ta where yx2yxlyx ~ (1, 10, 12, 14)(2, 7, 22, 24)(3, 9, 
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21, 15)(4, 6, 20, 13)(5, 17, 23, 11)(8, 19, 16, 18) —> = &* yx tgtoatist3t3; = 


x? yx tay yx yxtigte SV oe tists = Sy ye it, 


Nt t3 = Nt7vta. 


Let N!3 be the point stabilizer of 1 and 3 over N, therefore N°? =( e). 
Let p = (1, 7, 19, 13)(2, 6, 15, 16)(3, 4, 8, 12)(5, 17, 23, 11)(9, 10, 20, 24)(14, 18, 
21, 22). N(tit3)P = Ntzt, €¢ N93), Now N(3) > P = ( (1, 7, 19, 13)(2, 6, 15, 
16)(3, 4, 8, 12)(5, 17, 23, 11)(9, 10, 20, 24)(14, 18, 21, 22) ), this means |P| = 4. 
—> |(1,3]| = [N|+|N@*)| < 120+4 = 30. 


14+14+14+5 


(1, 2] 


Figure 5.10: Size of [1, 3]. 


The orbits of N@3) on X = { 1, 7, 19, 13}, { 2, 6, 15, 16 }, { 3, 4, 8, 12 
3, { 5, 17, 23, 11 }, { 9, 10, 20, 24 }, and { 14, 18, 21, 22 }. 


Lemma 5.12. Nt t3t € [ 1, 3 /. 
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Proof. Let p = (1, 19)(2, 18)(3, 21)(4, 11)(5, 16)(6, 8)(7, 13)(9, 15)(10, 23)(12, 
20)(14, 24)(17, 22) EN. 

tig = yx7yxytatg ( Lemma |5.6) then (t19)? = (yx?yx?ytatg)P —> 

ty = x lyx?ti1te =>? 

tit3 = x lyx?ti1te6ts. 

Let p = (1, 21, 22, 5, 12, 8)(2, 13, 9, 10, 17, 6)(3, 4, 23, 18, 14, 19)(7, 15, 

16, 11, 24, 20) EN. 

tig = yx’yxytatg ( Lemma]5.6]) then (ti9)P = (yxyx7ytatg)P => 

t3 = xyxlyxyxte3t; —> 

xlyx*tiitets = x lyx*tytexyx lyxyxte3t1, where xyxtyxyx ~ (1, 21, 18, 23)(2, 8, 20, 14) 
(3, 12, 5, 19) (4, 16, 22, 10)(6, 17, 7, 15)(9, 24, 11, 13) —> 

tit3 = x’yx?yxyxytistiztestt. 

Let n = (1, 7, 19, 13)(2, 14, 20, 8)(3, 18, 16, 11)(4, 23, 9, 6)(5, 15, 24, 22)(10, 17, 
21, 12). => trtig = (xlyx?)*titertot7 —> 

(xlyx?)?ti teitot7 = (xtyx’)titstz7 => 

Let p =n! = (1, 13, 19, 7)(2, 8, 20, 14)(3, 11, 16, 18)(4, 6, 9, 23)(5, 22, 24, 15)(10, 
12, 21,17) => 


(t7tig)P = ((xtyx?)?tit3t7)P => tit3 = (xtyx?)?(tit3t7)P. 


The first orbit yields Nt t3t1, Ntitgt7, Ntitgt19, Ntitgt13 © [ 1,3 I 
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1414145 


[1, 2] 


Figure 5.11: DCE up to the First Orbit of [1,3]. 


The second orbit yields Ntjt3ta, Ntjt3te, Nt t3t15, Ntyt3ti¢ E [ 1 [ Since 


tit3ti5 = tyte1 € [ 1 | as seen before. 
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1414145 


[1, 2] 


Figure 5.12: DCE up to the Second Orbit of [1,3]. 


The third orbit yields Ntjt3t3, Nt it3ta, Ntjt3tg, Nt tgty2, tit3t3 = tytg 


€ [ 1,2 | as seen before. Therefore, Ntit3t3, Ntit3t4, Ntitgtg, Ntit3tio € [ 1,2 i 
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1414145 


Figure 5.13: DCE up to the Third Orbit of [1,3]. 


Lemma 5.13. Nt t3ts € /1, 3). 


Proof. Let p = (1, 21, 18, 23)(2, 8, 20, 14)(3, 12, 5, 19)(4, 16, 22, 10)(6, 17, 7, 
15)(9, 24, 11, 18) € toN. 

tig = yx7yxytatg ( Lemma |5.6] ) then (t19)? = (yx?yx?ytatg)P —> 

tz = xyx'yx’ytiet2o => 

titgts = tyxyxyx*ytigtaots = xyx lyx”ytietistaots. 

Let p = (1, 15, 22, 2, 17)(3, 16, 8, 5, 7)(4, 20, 11, 19, 9)(10, 14, 23, 13, 21)E to N. 
tats = yx”yx”ytig ( Lemma|5.6|) then (tatg)? = (yx?yxyt19)P —> 

toots = yx lyxyx’tg —> 

xyxyx’ytietistaots = yx 'yx”ytistisyx 'yxyx*tg = xyx?yxtatato. 


We now have tit3ts5 = xyx?yxtatatg. 
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Let n = (1, 14, 12, 10)(2, 24, 22, 7)(3, 15, 21, 9)(4, 13, 20, 6)(5, 11, 23, 17)(8, 18, 
16, 19). == “(titats)" = (Gxeyx*yxtatatg)” => 

tutistiu = (xy)*tigtizts = (xy)?titg since ti3t13 = t1. 

Let p = (1, 10, 12, 14)(2, 7, 22, 24)(3, 9, 21, 15)(4, 6, 20, 13)(5, 17, 23, 11)(8, 19, 
16,18) =n. => 


(taatisti1)? = ((xy)?tit3)> ==> 


tyt3t5 = xyxyxtatatg = (xy)?(tit3)?. => Ntitgt5 € [ 1, 3 |. 


The fourth orbit yields Nt, tg3t5, Ntitgt 17, Ntitgta3, Ntitgty, © fi. BIE 


4+4 


1414145 


[1, 2] 


Figure 5.14: DCE up to the Fourth Orbit of [1,3]. 


Lemma 5.14. Nt t3tg € /1, 3]. 


Proof. Let p = (1, 19)(2, 15)(3, 8)(4, 12)(5, 23)(6, 16)(7, 13)(9, 20) (10, 24)(11,17) (14, 
21)(18, 22) EN. 
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tig = yx”yxytatg ( Lemma |5.6|) then (t19)? = (yx?yx?ytatg)P —> 

ty = yxyx*yx tists => 

tt3t9 = yxyx?yx ltotgtsto. 

Let n = (1, 12)(2, 22)(3, 21)(4, 20)(5, 23)(6, 13)(7, 24)(8,16)(9, 15)(10, 14)(11, 
17)(18, 19). = (titgtg)® = (yxyx?yxttrot3t3tg)? —> 

tigtaitis = xyxlyxyxty tai tei tis. 

xyxlyxyxtiteiteitis = xyxtyxyxtytistis 

xyx lyxyxt1tistis = xyx lyxyxtt3 

Let p = (1, 12)(2, 22)(3, 21)(4, 20)(5, 23)(6, 13)(7, 24)(8, 16)(9, 15)(10,14) (11, 
iis, j= a*. = 


(tiateitis)? = (xyxlyxyxtit3)P => 


titgto = yxyx?yx tote: = xyxlyxyx(tit3)?. 


The fifth orbit yields Ntit3tg, Ntit3ti9, Ntit3tao, Ntit3taa € (1, 3}. 
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14+14+14+5 


Figure 5.15: DCE up its Fifth Orbit of [1,3]. 


Lemma 5.15. Ntitgtia € [1/. 


Proof. Let p = (1, 19)(2, 15)(3, 8)(4, 12)(5, 23)(6, 16)(7, 13)(9, 20)(10, 24)(11,17)(14, 
21)(18, 22) EN. 

tig = yx7yxytatg ( Lemma|5.6|) then (t19)? = (yx?yx?ytatg)P —> 

ty = yxyx’yxtyt3 —> 

titgtaa = yxyx’yxtiotstatus. 

Let p = (1, 8)(2, 13)(3, 17)(4, 24)(5, 9)(6, 22)(7, 20)(10, 18)(11, 21)(12, 16)(14, 
19)(15, 23) EN. 

tig = yx’yxytatg ( Lemma 5.6] ) then (ti9)P = (yx yx ytatg)P —> 

ti = yx?yx tytoaty => 


yxyx’yxltrtst3tia = yxyx’yxltrtgt3yx2yxlytodt: = x2yx?ytistististestr. 
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Let n = (1, 19)(2, 4)(3, 23)(5, 21)(6, 24)(7, 13)(8, 10)(9, 17)(11, 15)(12, 18)(14, 
16)(20, 22). => 

(titgti4)” = (x*yxytigtigtigteat1)" => 

tigteztig = (x*yx"')*tztiotiotetio. 

(x*yx!)*trtiatiatetig = (x*yx!)*trtostetig => 

(x?yx!)*tzteatetig = (x?yx!)?tzt19 since tots =e —> 

(x?yx>)Ptetig = (x2 yx?) ty. 

Let p = (1, 19)(2, 4)(3, 23)(5, 21)(6, 24)(7, 13)(8, 10)(9, 17)(11, 15)(12, 18)(14, 
16)(20;22) = a>, == 


(tigtestig)” = ((x*yxt)?t1)P => 


titstig = x2yx"ytig = (x2yx1)?tyP € [1]. 


The sixth orbit yields Nt tstyia, Nit t3tig, Ntyt3t2, Ntytgtoo E [1]. 
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14+14+1+5 


[1, 2] 


Figure 5.16: DCE up to the Sixth Orbit of [1,3]. 


Our augment shows that |G| < 65(120) = 7800. Let X be the set of the 
65 right cosets that we have found. Now (x,y,t) act on X and it readily checks 
that | f(x), f(y), f(t)| = 7800. By the First Isomorphism Theorem, there exist a, 
b in G that satisfy a presentation of [2(25). Thus, L2(25) < 7800. Now |G| = 


|L2(25)| = 7800. So G & Lo(25). 


5.3. DCE 83 x As Over 15:2 and 10:2 


A symmetric presentation of the progenitor 2*!° : (10 : 2) is G = ( x!®, 


y, (ay), 0”, Cy) ryt" 7, Gt*)*).. Let xx = (1, 2, 3, 4,5, 6, 7, 8) 9, 10), ve 


= (2, 10)(3, 9)(4, 8)(5, 7), and N = ( xx, yy ). Magma gives | N | = 20 andN & 
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(10: 2). Let t = ¢4. 


Given H = (x, y, tx°tx), is a maximal subgroup of G and |H| = 60. 
Theorem 5.16. S3 x As = G = ( 2!9, y?, (cy), t?, (ty), (x? ytt®)?, (xt*)°) . 


We perform our technique of manual double coset enumeration to G over 
H and N to construct G and prove that G = $3 x As . Before we start our double 


coset enumeration, the relations need to be expanded. 
Lemma 5.17. x yty toto = totytg. 


Proof. (x*ytt*)? = e (Definition of G ). => (x?ytit2)3 =e. Let tr = x2y ~ (1, 
9)(2, 8)(3, 7)(4, 6). ==> (ntyt2)? = 13(tytz)™ (tyto)"tyte = x’yty totgtgty to = 1. 


x’ yt tototgtto(totits) = e(totytg) = x’ytytatg = totitg, which also means Ntytotg 


= Ntoty tg. 


Lemma 5.18. atts = tg. 


Proof. (xt*)?= e (Definition of G ). — > (xte)? =e = xtoxtoxty = x3t4tgte = 


e = > x°tytzte(te) = e(t2) —> x%tat3 = te, which also means Hty = Htyts. 


Lemma 5.19. Ht7 = Hts. 


Proof. Given H = ( x, y, tx°tx), is a maximal subgroup of G and |H| = 60. => 


txOtx wtixtetx — Hx®tt =H = 


Hx®trtj =H — > Htrtp = H Ht7 = Ht». 


The only right coset of HeN = [*] is H, therefore||*]| = 1, which is sym- 
bolized by placing “1” inside the circle representing [*]. The stabilizer of N is N, 


which means the only orbit of N is {1, 2, 3, ...., 10} which yields the cosets Nt, 
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Ntg, Nt, ... Ntio € [1]. This is symbolized by placing a “10” next to the circle 


representing [1] in the diagram below. 


10 


(I Mm 
Figure 5.17: DCE [x] 


Lemma 5.20. N\) = w-!Nwn N. 


Proof. NY) ={neN|Nune Nw} => 
NW) ={neN|wne Nw} = 


NW) —{neN|new Nu} => 


NW) = w-1Nwn N. 


Lemma 5.21. (w-'Hw) NN =wNw ! ON. 


Proof. Let the right coset decomposition of H over N H = NUNw,UNwy....UNw,, 
where NO Nw; = {} , NwjN Nwji = {} —, fori Fj. 
(wlHw) ON = (wHw!)NN =w(NUNw,U Nu... Nuz)woiaN => 


(wt Hw)nN = (wNw tUwNwiw!UwNwew!.. UNwyw 4 )ON = wNw nN 


since NM Nu; = {}. 


Theorem 5.22. Let we G, N<, H< G then the number of right cosets of H in 
the double coset HwN =|N|/|N“), were w € G and H,K are normal subgroups of 
G. 


106 


Proof. Let w € G. Lemma the number of single cosets of H in HwK = 
|H| x |N|/|wHw-t a N| = |N|/|wNw-ta N| by Lemma [5.20} Now |HwK| = 
|| x |N|/[N®| by Lemma [5.21] 

Now divide by || to obtain |[w]| = |N|/|N™]. 


Let N! be the stabilizer of {1} over N. Therefore, N' = ( (2,10)(3, 9)(4, 
8)(5, 7)). Let p = (1, 5, 9, 3, 7)(2, 6, 10, 4, 8). Hence, Ht7P = Ht2?, which means 
Ht, = Htg. Let n = (1, 6)(2, 7)(3, 8)(4, 9)(5, 10) or (1, 6)(2, 5)(3, 4)(7, 10)(8, 
9). Ht," = Hts = Ht,, which proves n € N“), NO) > P = ( (2, 10)(3, 9)(4, 8)(5, 
7), (1, 6)(2, 7)(3, 8)(4, 9)(5, 10)). Consequently, |P| = 12, which results in |[1]| = 
IN|+|N®| < 20/4 = 5. 


O—® 


(‘J [1] 


Figure 5.18: Size of [1]. 


Now the obits of N® on X = {1}, {6}, { 2, 10}, {3, 9}, { 4, 8}, {5, 


7}. The first orbits yields the right coset Htjt; = H € [*] since |t;| = 2. 


("] [1] 


Figure 5.19: DCE up to the First Orbit of [1]. 
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The second orbit yields Ht,;tg = Htgtg since Ht; = Htg. Therefore, Htgtg 


= H. This proves Htit¢ € [*]. 


10 1+1 


("] (1] 
Figure 5.20: DCE up to the Second Orbit of [1]. 


The third orbit yields Ht,tz and Htyty. 
Lemma 5.23. Htitio € [/1/. 


Proof. Let p = (1, 9, 7, 5, 3)(2, 10, 8, 6, 4). 
x°t4t3 = to ( Lemma 5.18) —> (x%tyt3)P = to? —> 
(x?)Ptot; = tio, where (x°)P = (1, 4, 7, 10, 3, 6, 9, 2, 5, 8). 


Let n = (x3)P => ntott) = tiott nto tioty 


(nt2)+ = (tiot1)4 = ton! = fi dy =ttio —> Hto = Htjt10 = 
Htg = Htytio € [1] since Htg € BaP 


Since Htitg and Ht)tig come from the same orbit. ==> 


Ht tg and Htytio € [1]. 
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(I M1 


Figure 5.21: DCE up to the Third Orbit of [1]. 


The fifth orbit yields Ht,t4 and Htytg. 
Lemma 5.24. Htita € [1]. 


Proof. Let p = (1, 2)(3, 10)(4, 9)(5, 8)(6, 7). 

to = x3 tats ( Lemma|5.18). —> (te)? = (x3 tats)? —> ty = x3totip = 
tita = x totiota. 

Let p = (1, 3, 5, 7, 9)(2, 4, 6, 8, 10). 

to = x tats ( Lemma 5.18). => (te)P = (x%tats3)? => ta = x2tets => 
xtotiota = xtotiox*tets = totgtets, 

where x? ~ (1, 4, 7, 10, 3, 6, 9, 2, 5, 8). 

Let p = (1, 3)(4, 10)(5, 9)(6, 8). 

totits = x°ytytato (Lemmal5.18). => (totits)P = (x2ytitoto)? 

=> totgte = xyt3tets —> 

totgtets = x*ytgtotsts. 

Let p = (1, 10, 9, 8, 7, 6, 5, 4, 3, 2) 

tatz = xt (Lemmalp.18). => (tat3)P = (xt2)P t3tg = xt 


xytgtotsts = xtyx 3 ty t5ts = xtyx3t, = 
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Htyt, = Hxtyx3t, = Ht; € [1]. 


242 


("] [1] 
Figure 5.22: DCE up to the Fifth Orbit of [1]. 


The fourth orbit yields Ht;t3; and Htyto. 
Lemma 5.25. Htit3, Htitg € [1]. 


Proof. Let p = (1, 10, 9, 8, 7, 6,5, 4, 3, 2}. 

to = x°tats (Lemma 5.18). => (to)? = (x tat3)P —> ty = x3t3tp —> 
tyt3 = x®tgtot3 

Let p = (1, 5)(2, 4)(6, 10)(7, 9) 

tats = xt2 (Lemma|5.18). => (tat3)P = (x ta)? tot = x°ty 


x°t3tots = x°t3 adr = x°tets =>? 


Ht tz = Hx® tet, 

Let p = (1, 9, 7, 5, 3)(2, 10, 8, 6, 4). 

Ht; = Htp => Ht7t2 = H (Lemma[5.19). => (Htrt2)P = HP => Htstio = 
AS 


Htit3 = Hx® tet, = Htstipr°teta = Hx®tteteta = Htyt4 € [1] =>? 


Htit3 € [1]. 
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2+2+2 


a [1] 


Figure 5.23: DCE up to the Fourth Orbit of [1]. 


The sixth orbit yields Ht;t5 and Htyt7. 
Lemma 5.26. Htits, Htit7 © [1]. 


Proof. Let p = (1, 6)(2, 5)(3, 4)(7, 10)(8, 9). 

to = x3t4t3 (Lemmal5.18). => (t2)P = (x3tats)P => ti = ts = x%tsty => 
tyts = ty => tix 3tgt, = xStgtzt4 since x? ~ (1, 8, 5, 2, 9, 6, 3, 10, 7, 4). 
Htits = Hx tetsta. 

Let p = (1, 10,9, 8, 7, 6,5, 4, 3, 2) 

Ht7 = Ht2 (Lemma|5.18). = > Ht7tg =H => 

(Ht7t2)P = HP = > Higty =H = 


Ht,t3 = Htgt1x°tgt3ta = Hx t3tgtgt3ta = Ht4 € [1] 


=> Hits, Htyt7 € [1]. 
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2+2+2+2 


(*] 1] 
Figure 5.24: Cayley Diagram of S3 x As Over 15:2 and 10:2. 


Our augment shows that |G| < 6(20) = 360. Let X be the set of the 6 
right cosets that we have found. Now (2, y,t) act on X and it readily checks that 
| f(x), f(y), f(t)| = 360. By the First Isomorphism Theorem, there exist a, b in G 
that satisfy a presentation of S3 x As. Thus, S3 x As < 360. Now |G| = |S3 x A5| 
= 360. So G = S3 x As. 


5.4 DCE of (A;)?:2 Over A; : 2 


A symmetric presentation of the progenitor 5**4 : (As : 2) is G = ( x, y, 
t [secs Gey Aa tye) (eye SP, Gey ae ey Det 
xx = (1, 2, 4, 12, 21)(3, 7, 8, 10, 18)(6, 15, 19, 20, 22)(9, 13, 14, 16, 24) and let yy 
= (1, 15)(2, 5)(3, 13)(4, 6)(7, 21)(8, 11)(9, 19)(10, 12)(14, 17)(16, 18)(20,23)(22, 
24). Let N = ( xx, yy) . Magma gives |N| = 120. Let t = ty. 

Let G = (x, y, t | x°, y*, (xty)*, ( xyx?yx )?, 0°, (+, x?yxy ), t* = +7, 
(yx?t¥2")4, (yxt?)4), 

We perform our technique of manual double coset enumeration to G over 


N to construct G and prove that G & (As)? : 2. Before we start our double coset 
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enumeration, the relations need to be expanded. 

Notation: t = t1, tig = ti”, tag = to”, tor = t3”, tag = ty”, to3 = ts”, tog 
=4e tei eS te S03, te a ea te Se 
to; tip tay te = tas ty = ts) and” tig = te". 

Additional Notation: tig = t12 —> (ti9)N = (t1?2)N — ti = tig, 
to:-= tya!; ta = tig ta = tet, ty Sti? te = tig” ty = tig, tg = tag, to = 
tort tio tno tay = tog), tie Sto ig = ta St tie = te te = 
ta, ti7 = ts, tig = te’, tig = ty’, too = tg, tor = to™, tor = tio, tes = tir”, 
toa = tig”. 


Powers of t;: 


Inverses Powers Splits 
ti = tis” i Stig, = ty ta Ss ti = tigti3 
te = tie to? = tao, tg = te, tus = te4 to = tootia 
t3 = tis” t3” = tar, to = t3® ,tis = t3* t3 = tartis 
<r 2 _ 43 te PA = 
t4 = ti6 ta* = to2, tio = ta”, tig = ta t4 = toatie 
ae 2 Sek we = 
ts = ti7 t5° =to3, ti = ts”, ti5 = tg ts = te3ti7 
te = tis” te” = toa, tia = te? stig = te te = toatig 
t7 = tig’ t7 = 11° t7 = titi 
ts = tog" tg = t2? tg = tatao 
to = ta! tg 03" to = t3ta1 
tio = tag oats tio = tate 
ti = tes ti = ts? ti1 = t5te3 
tig = teat tig = te? tig = teto4 


tig = t+ tis = ti* tig = trt1 
tig = to tia Ag: tia = tgte 
tis = tz” Cet tis = tots 
tie = ta tigate tie = tiota 
ti7 = ts” ti7 = ts* ti7 = tits 
tig = te tig = te? tig = tiote 
See ey, = 
tig = t7 tig = ty tig = tigt7 
eee 4.2 = 
t20 = tg t20 = te t20 = tiatg 
ng od 4.2 = 
to1 = tg to1 = tg to1 = tistg 
too = tio? too = ta? to2 = tietio 
tos = tay! to3 = ts? to3 = ti7ti 
Bra tis toate? toa = tigtio 
Table 5.2: Power of the ts. 
Proof. (wrt =e => wir’ n'a’ =e 
(wr)4* =e => wrwawrwr =e => 
w(ww!)rwrwawr = ww(wirw)twrwe = w?(n”)twawT = 
wn’ (ww!)rwrwr = wn w(wlaw)ewr = wr w(r")rwr = 
wer wr" (ww) )rwr = wer wr w(wlaw)o = wer wr w(0") 0 = 
w2 (ww )r’w(wwt)c’ woo = wew(wi a’ w)w(wla’w) oo = 
( 
3 


w3 (ne wre = w? (ww) ne wr a =W 


3 2 
wire re Yr, 


w(wlaw) (ne Te = 
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Let w = (1, 20, 23, 6, 21, 10)(2, 5, 12, 3, 16, 7)(4, 19, 14, 17, 24, 15) ~ 


yx?. (8, 11, 18, 9, 22, 13). 


Additional Relation: (wtt)4 =e => w4(t?)"*(t2)”"(t2)*%tt =e => 
w4(ti9)” (tig) (tig)"ti9 =e ==> wtosti7tistig = e. 


Additional Relation: (wtg9)t =e => w'tap™” too” top” too =e => 


w'toitgte3te0 = e. 


Lemma 5.27. tosti7 = W 2 toto. 


Proof. w'toatiztiatig = e@ => ww taatiztistigtig tis! = wetig tig? => 


toati7 = w'tig tig! => toati7 = w’trte. 
Lemma 5.28. tojtg = w *igtii: 


Proof. w'to1 tetestao =e => ww“ to teta3taoteo ites! = weto9 !to3! => tate 


= w°"too! tes! => tats = wtety by notation. 


Lemma 5.29. ti7tistig = w tig. 


Proof. taati7 = wt7ta => toati7te! = wttate! => toaati7tia = wt 


since to! = tig —> (toati7ty4)P = (w?t7)? where p = (1, 10, 21, 6, 23, 20)(2, 7, 


16, 3, 12, 5)(4, 15, 24, 17, 14, 19)(8, 13, 22, 9, 18, 11) => tiztyatig = wt. 
Lemma 5.30. tjtg = x ty. 


Proof. tytg = tigtigtagti4 by splitting ty and to. 
Let p = (1, 7, 13, 19)(2, 20, 14, 8)(3, 23, 10, 12)(4, 6, 21, 17)(5, 16, 18, 9)(11, 


22, 24, Ly) EN = ( Lemma Ie (toati7)? = (w7t7t2)P => ti3te = 
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xlyxyx'tista where xtyxyx! ~ (1, 11, 4)(2, 24, 9)(3, 20, 18)(5, 22, 19)(6, 15, 
8)(7, 17, 10)(12, 21, 14)(13, 23, 16) => 

tio(tisteo)tia = tig(xlyxyx'tista)tia => 

tig(xtyxyx'tista)tig = xl yxyxltstistatig —> 

x lyxyx ts (tis)tatia = x lyxyx ts (tot3)tatu. 

Let. p= (1, 6, 9; 17; 14,22), 10, 18, 18; 21, 5)(3;.11, 8, 16,-19, 24) (4, 7, 12,15, 
23, 20) EN => (taite)P = (wtgti1)? ( Lemma|5.28}). => 

tst9 = xyxytigtg where xyxy ~ (1, 16, 21)(2, 11, 12)(3, 7, 22)(4, 9, 13)(5, 6, 
20)(8, 17, 18)(10, 15, 19)(14, 23, 24) => 

xlyxyxl (tstg)tgtaty = x lyxyxl (x?yxytigts)tgtatr where x lyxyx lx ?yxy = xyxyx?. 
Let p = (1, 8, 24, 22)(2, 18, 16, 19)(3, 9, 15, 21)(4, 7, 14, 6)(5, 23, 17, 11)(10, 18, 
20, 12) € N => (taits)P = (w"tgti1)P ( Lemma|5.28]) => 

t3t4 = x?yxlytoats where x*yxly ~ (1, 24, 16)(2, 11, 21)(3, 8, 17)(4, 13, 12)(5, 
15, 20)(6, 22,7)(9, 14, 23)(10, 19, 18) => 

xyx’yx*tigts(tgta)tr = xyx?yx?tigts(x2yxlytests)ti4 => 

xyx’yxtiets(x2yx ytoats)tia = xyx?yx?x?yx lytiti7teatstia where xyx?yx?x?yx ly 
= xyx yx. 

Let p = (1, 19, 13, 7)(2, 3, 11, 18)(4, 10, 16, 22)(5, 12, 20, 21)(6, 14, 15, 23)(8, 9, 
17, 24) €N => ( Lemma[5.27]) (tostiz)? = (w?trt2)? => tstig = yxtyxtotis 
where yxtyx ~ (1, 12, 11)(2, 4, 9)(3, 20, 22)(5, 19, 6)(7, 18, 17)(8, 10, 15)(13, 24, 
23)(14,.16, 21) ==> 

xyxyxtyti7taa(tstia) = xyx?yxtiti7ted(yxlyxtotig) —> 
xyxyxt1t17to4(yxtyxtgtis) = xyx “yxyx lyxtyot7testotig where xyx “yxyx lyx = 


(ey). 


116 


Let p = (1, 20, 9, 18)(2, 15, 24, 7)(3, 12, 19, 14)(4, 22, 16, 10)(5, 11, 17, 23)(6, 13, 
8, 21) EN => (taati7)P = (wtzt2)P ( Lemma]5.27|). => 

t7to3 = xyxytetis where x?yxy ~ (1, 16, 21)(2, 11, 12)(3, 7, 22)(4, 9, 13)(5, 6, 
20)(8, 17, 18)(10, 15, 19)(14, 23, 24) => 

(x?y)*t1o(trte3)totig = (x*y)?tie(x?yxytetis)totig => 


(x*y)*t12(x@yxytetis)totis = (x2y)?x?yxytetetistotig where (x*y)?x2yxy = (yx)? ==> 


(yx)?(tate)tistotis = (yx)*(ta0)tistotig —> 

(yx)?t20(tisto)tis = (yx)*t20(ta1)tis - 

Let p = (1, 24, 2)(3, 17, 10)(4, 21, 11)(5, 22, 15)(6, 8, 7)(9, 23, 16)(12, 14, 13)(18, 
20, 19). 

ti7tiatig = wtie ( Lemma|5.28] ). => 


(tiztiatig)? = (wtig)? => teoteitig = yxyx'tig => 


(yx)*taoteitig = (yx)*yxyx tig = x7tig —> tite = x*tig. 


5.4.1 Double Cosets [*]. 


Let N = ( xx, yy ) and Let X = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, ..., 23, 24}. 
Orbits(N) = { 1, 2, 15, 4, 5, 19, 12, 6, 20, 9, 21, 10, 22, 23, 13, 7, 18, 24, 14, 3, 8, 
16, 17,11} =X => Vie X, t € [I]. 

The only right coset of NeN = [*] is N => |[*]| = 1, which is symbolized 
by placing “1” inside the circle representing [*]. The coset stabilizer of coset N is 
N. Therefore, the only orbit of N on KX = { 1, 2, 15, 4, 5, 19, 12, 6, 20, 9, 21, 10, 
22, 23, 13, 7, 18, 24, 14, 3, 8, 16, 17, 11} = X, hence Vi € X, t; € [1], which yields 


the cosets Nt,, Nto,..., Ntza € [1]. This is symbolized by placing a “24” next to 
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the circle representing [*] in the diagram. 


[*] [1] 


Figure 5.25: DCE of [x]. 


5.4.2 Double Cosets [1]. 


Stabilizer of 1 denoted by N! = ({ (2, 23, 21, 16, 24)(3, 22, 6, 8, 5)(4, 
12, 14, 11, 9)(10, 18, 20, 17, 15)) . Since there are no relations that take tj to t; 
for 0 < i,j < 24, therefore the stabilizing group denoted by NO) = Nt. |[1]| = 
IN|+|N©| = 120+5 = 24. This is symbolized by placing a “24” inside the circle 


representing [1] in the diagram. 


["] [1] 


Figure 5.26: Size of [1]. 
Now the orbits NY on K = {1},{7}, {13}, {19}, { 2, 23, 21, 16, 


24 }, { 3, 22, 6, 8,5 }, { 4, 12, 14, 11, 9 }, { 10, 18, 20, 17, 15 }. The first orbit 


gives us Ntjt; = Ntig € [1]. 
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["] [1] 


Figure 5.27: DCE up to the First Orbit of [1]. 


The second orbit gives us Ntit7 = Nti(t17) = Nt? = Ntg € [1]. 


1+1 


[*] [1] 


Figure 5.28: DCE up to the Second Orbit of [1]. 


The third orbit gives us Ntyt13 = Nt;*t;= Nt}? = Ne=Ne [F]. 


1+1 


["] [1] 


Figure 5.29: DCE up to the Third Orbit of [1]. 


The fourth orbit gives us Ntytig = Nt jt,? = Nt,? = Nt7 € [1]. 
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1+1+1 


["] [1] 
Figure 5.30: DCE up to the Fourth Orbit of [1]. 


The fifth orbit gives us Ntjtz2 = Nxt ig (Lemma ). Nx tig = Ntig 


€ [1], therefore Ntit2 € [1], which shows Ntita3, Ntit21, Ntitig, Ntitea € [1]. 


1414145 


[*] [1] 


Figure 5.31: DCE up to the Fifth Orbit of [1]. 


The sixth orbit gives us Ntit3 € (1, 3], therefore Ntit22, Ntitg, Ntitg, 


Ntits € [1, 3). 
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1+1+1+5 


[1, 3] 


Figure 5.32: DCE up to the Sixth Orbit of [1]. 


The seventh orbit gives us Ntit4 € [1, 4], therefore Ntiti2, Ntitia, Ntiti, 


Ntitg € [1, 4]. 


1414145 


[1, 3] 


Figure 5.33: DCE up to the Seventh Orbit of [1]. 


From the eighth orbit we get Ntjt20, Ntjt10, Ntitis, Ntyt17, Ntyity5. 
Lemma 5.31. Nt1t20, Ntit10, Ntyt18, Ntyt17, Ntyti5 € /1, 4]. 


Proof. Nt tao = Ntj tote since tao = toto. 
N(tit2)tg = N(x?tig)te (Lemma y => 


Nt tao = Ntigete. 
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Let p =(1, 23, 12, 14, 16)(2, 4, 13, 11, 24)(5, 18, 20, 22, 7)(6, 8, 10, 19, 17) => 


N(tiet2)P = Ntitg = Ntjta9 € (1, 4| => Ntitio, Ntitis, Ntiti7, Ntiti7, E (1, 


4]. 


[1, 3] 


Figure 5.34: DCE [1]. 


5.4.3 Double Cosets [1,3] 


The N!3 = (e), therefore N“3) > (e). Let p = (1, 2, 24)(3, 10, 17)(4, 
11, 21)(5, 15, 22)(6, 7, 8)(9, 16, 23)(12, 13, 14)(18, 19, 20), hence toati7 = w"trta ( 
Lemma|5.27]). Now, (toati7)P = (w?t7t2)P, which means ti1t3 = xlyxytgto4. This 
gives us Ntytz3 = Nx !yxytgto4. Consequently, Nt;t3 = Ntgto4 , resulting in n = 
(1, 8)(2, 19)(3, 24) (4, 5)(6, 9)(7, 14)(10, 11)(12, 15)(13, 20) (16, 17) (18, 21) (22, 23)e N(L) 
since N(tit3)" = Ntgtaa. 

Now, ti(t3) = ti(taiti5) by notation. Let p = (2, 21, 24, 23, 16)(3, 6, 
5, 22, 8)(4, 14, 9, 12, 11)(10, 20, 15, 18, 17). Now, tity = xtig( Lemma 5.27}, 
therefore (tit2)? = (x?t g)P. This gives us tite; = x lyxyxte, we substitute to ob- 
tain (tite1)tis = (xtyxyxt2)ti5. Consequently, Ntit3 = Ntgtis, which shows n = 
(1, 2)(3, 15)(4, 16) (5, 6)(7, 8)(9, 21) (10, 2)(11, 12)(13, 14) (17, 18) (19, 20) (23, 24)e N@3) 
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since N(tit3)" = Ntoti5. 

Let p = (1, 7, 13, 19)(2, 20, 14, 8)(3, 23, 10, 12)(4, 6, 21, 17)(5, 16, 18, 
9)(11, 22, 24, 15) ¢ N@*) since Ntjt3 = Ntgty5 = N(tgtoa)?. Therefore, p? = (1, 
13)(2, 14)(3, 10)(4, 21)(5, 18)(6, 17)(7, 19)(8, 20)(9, 16)(11, 24)(12, 23)(15, 22) 
€ N(L3), Now, NG&3) > P = ( (1, 8)(2, 19)(3, 24)(4, 5)(6, 9)(7, 14)(10, 11)(12, 
15)(13, 20)(16, 17)(18, 21)(22, 23), (1, 2)(3, 15)(4, 16)(5, 6)(7, 8)(9, 21)(10, 2)(11, 
12)(13, 14)(17, 18)(19, 20)(23, 24), (1, 2)(3, 15)(4, 16)(5, 6)(7, 8)(9, 21)(10, 2)(11, 
12)(13, 14)(17, 18)(19, 20)(23, 24)), which gives us |[1, 3]| = |N|-+|N@*)| < 120+8 
= 15. 


[1, 3] 


Figure 5.35: Size of [1,3]. 


The orbits of P are { 1, 20, 7, 14, 8, 13, 2, 19 }, { 3, 11, 23, 22, 24, 10, 
15, 12}, and { 4, 18, 6, 9, 5, 21, 16, 17}. From the first orbit we choose ‘1’ as the 


representative: 


Lemma 5.32. Nt;t3t,;, Ntitsteq, Ntrt3t7, Ntytst1y, Nt ,tgtg, Ntitgty3, Ntitgto, and 


Ntytstig € [1, 3]. 


Proof. Let p = (1, 10, 24, 3, 2, 17)(4, 18, 21, 20, 11, 19)(5, 13, 22, 12, 15, 14)(6, 
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9, 8, 23, 7, 16). 

toati7 = wt7t2 ( Lemma ). = > (toati7)P = (w?t7te)P —  t3t, = 
(xtyx!)*tigtiz where xtyx!)? ~ (1, 14, 4)(2, 16, 13)(3, 18, 5)(6, 17, 15)(7, 
20, 10)(8, 22, 19)(9, 24, 11)(12, 23, 21) => 

ti(tgt1) = ti((xtyx7)*tisti7) — 

ti ((x"yx!)*tisti7) = (x tyx)?tiatietaz. 

Let p = (1, 14, 4)(2, 16, 13)(3, 18, 5)(6, 17, 15)(7, 20, 10)(8, 22, 19)(9, 24, 11)(12, 
23, 21). 

titz = x°tig (Lemma[5.27]). => (tite)? = (x?ti6)? => tratie = x?yxyx'tis 
= 

(xlyx1)?(tiatig)tiz = (xlyx!)?(x?yxyxti3)ti7 = w’tistiz => Ntitgti = 
Nti3t17. 

Let p = (1, 13)(2, 4)(3, 17)(5, 15)(6, 18)(7, 19)(8, 10)(9, 23)(11, 21)(12, 24)(14, 
16)(20, 22). => 

N(tytgt:)? = N(tigty7)P> => N(tytgt;)P = Ntytz; = > Ntytgt, € [1,3] —= 


Ntit3t20, Ntitg3t7, Ntitgti4, Ntitgtg, Ntit3t13, Ntitste, and Ntitgti9 © (1, 3] since 


1, 20, 7, 14, 8, 18, 2, 19 belong to the same orbit. 
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Figure 5.36: DCE up to the First Orbit of [1,3]. 


From the 2nd orbit we choose ‘3’ as the representative. 
Lemma 5.33. Nt,ts3t3 € /1/. 


Proof. Nt it3t3 = Nt, tg, by notation t3t3 = tg; = > Ntitgt3 = Ntita1 € [1] as seen 


before. => Ntit3tg, Ntit3t11, Ntitg3t23, Ntjtg3t29, Ntjtg3toq, Ntit3t10, Ntitgtis, 


and Ntit3ti2 € [1]. 
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Figure 5.37: DCE [1,3]. 


From the 2nd orbit we choose ‘21’ as the representative. Ntit3t21 = Nt tg 
E [1,4] as seen before. Therefore, Ntyt3ta, Ntitgtis, Ntjt3te, Nt t3to, Ntyt3ts, 


Ntit3tig, and Ntitgti7 € [1,4]. 


Figure 5.38: DCE of [1,3]. 
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5.4.4 Double Cosets [1,4]. 
Lemma 5.34. tht, = zyx ytte3teg = cyt ya? tetra. 


Proof. Let p = (1, 23, 12, 14, 16)(2, 4, 13, 11, 24)(5, 18, 20, 22, 7)(6, 8, 10, 19, 
17) EN. 

tite = x *tig ( Lemma 5.30] ) => xtite = tig => (x?tit2)P = (tig)? => 

ty = x’yx~lyxta3ta =>? 

(t1)ta = (x?yx~tyxtesta)ta —> 

x?yx7lyxte3(tata) = x*yx7lyxte3(te2). 

Let p = (2, 24, 16, 21, 23)(3, 5, 8, 6, 22)(4, 9, 11, 14, 12)(10, 15, 17, 20, 18) EN. 
tits = wtgti: ( Lemma [5.28|). => (taits)? = (wtgti)P => testo. = 


ye yteti4. —> x?yx—lyx(togte2) a x?yx—lyx(xyx7ytgti4) = xyx lyx*tetza. 


The Ni? = (se) ==> N(L4) > (e). Now tit, = x?yx"! yxto3t22 (Lemma 
5.34/). => Ntyta = Nx*yx! yxto3t2g = Nogtao. Now tit = xyx lyx?tgtia ( 
Lemma |5.34]). = > Ntitq = Nxyx !yx?tet1,4 => Ntita = Ntgty4. Let n = (1, 
3)(2, 10)(4, 20)(5, 12)(6, 23)(7, 9)(8, 16)(11, 18)(13, 15)(14, 22)(17, 24)(19, 21) 
—> N(tyts)P = N(tosten)? = Ntgtig = Ntjta —> N(tyty)? = Ntjt, —> ne 
NGA). 


Lemma 5.35. tht, = (yx? )? toate. 


Proof. Let p = (1, 9, 16, 2, 11)(3, 10, 20, 5, 19)(4, 14, 23, 13, 21)(7, 15, 22, 8, 17) 
EN. 
tit2 = x7 tig ( Lemma|5.30|). —> x°tite = tie —> (x*tita)P = (tie)? —> ta 


= xyxyx” 'te3te1 =>? 
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ti(ta) = t1(xyxyx teste: ) => 

(tyxyxyx!)te3te1= (xyxyx7't,)ta3tar. 

Let p = (1, 6, 11, 15, 4, 8)(2, 19, 24, 5, 9, 22)(3, 16, 20, 13, 18, 23)(7, 12, 17, 21, 
10, 14) EN. 


tit2 = x *t16 ( Lemma 2 (tit2)P = (x~?ti6)P tite3 = x ?yxyx toa. => 


xyxyx | (tite3)te1 = xyxyx 1 (x *yxyx”!tea)tar = tits = (yx~?)toatar. 


Now, ti ta = (yx~”)?t24t2 (Lemma 5.34), therefore Ntyt4 = N(yx~?)* tata. 
We now have Ntjt4 = Ntgato,. Let n = (1, 24, 2)(3, 17, 10)(4, 21, 11)(5, 22, 15)(6, 
8, 7)(9, 23, 16)(12, 14, 13)(18, 20, 19), hence N(tit4)" = Ntoato, = Ntyt4. Con- 
sequently, N(tit4)" = Ntit4, which means n € NGA), 

Let P = ( (1, 3)(2, 10)(4, 20)(5, 12)(6, 23)(7, 9)(8, 16)(11, 18)(13, 15)(14, 
22)(17, 24)(19, 21), (1, 24, 2)(3, 17, 10)(4, 21, 11)(5, 22, 15)(6, 8, 7)(9, 23, 16)(12, 
14, 13)(18, 20, 19) ) = ( (1, 17, 2, 3, 24, 10)(4, 19, 11, 20, 21, 18)(5, 14, 15, 12, 22, 
13)(6, 16, 7, 23, 8, 9) ), therefore N(“4) > P. Consequently, |{1, 4]| = |N|+|NG“)| 
< 120+6 = 20. Orbits of P on X are {1, 10, 3, 17, 2, 24}, { 4, 18, 20, 19, 11, 21}, 
{ 5, 13, 12, 14, 15, 22 }, { 6, 9, 23, 16, 7, 8}. 
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Figure 5.39: Size of [1,4]. 


From the 1st orbit we choose ‘10’ as the representative. Nt; tatj9 = Nt tig 
since tig = tatio, therefore Ntitatio € [1] since Ntitig € [1]. Consequently, Ntitati, 


Ntitatio, Ntitatz , Ntitati7, Ntitate, Ntitates € [1]. 


14#1+1+5 


Figure 5.40: DCE up to the First Orbit of [1,4]. 


From the 2nd orbit we choose ‘4’ as the representative. Ntitata = Ntit22 
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by notation, therefore Nt tata € [1,3] since Ntit22 € [1,3]. Consequently, 


1414145 


Figure 5.41: DCE up to the Second Orbit of [1,4]. 


From the 3rd orbit we choose ‘22’ as the representative. Ntitateg = Ntitio 
since tio = tatg2, therefore Ntit4t22 € [1,4] since Ntiti9 € [1,4]. Consequently, 


Ntytats, Ntitati3, Ntitatig , Ntitaty, , Ntitatis , Ntytates € [1,4]. 


130 


Figure 5.42: DCE up to the Third Orbit of [1,4]. 


From the 4rd orbit we choose ‘16’ as the representative. Nt tatig = Nt 
since tatig = tata+ = e, therefore Ntitatig € [1]. Consequently, Ntitate, Ntitato, 


Ntytato3 , Ntitati¢ : Ntit4t7 , Ntyt4tg € [1]. 


Figure 5.43: Cayley Diagram of (As)?:2 Over As : 2. 
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Our augment shows that |G] < 60(120) = 7200. Let X be the set of the 
60 right cosets that we have found. Now (x,y,t) act on X and it readily checks 
that | f(x), f(y), f(f)| = 7200. By the First Isomorphism Theorem, there exist a, 
b in G that satisfy a presentation of (As)? : 2. Thus, (As)? : 2 < 7200. Now |G| = 


|(As)? : 2| = 7200. So G & (As)? : 25. 
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Chapter 6 


An Algorithm To Prove Coset 


Relations 


Let N be a transitive permutation group. Let G & (|t|)*":N factor by a 


set of relations, where n is the number of letters of N. 


Step 1: We extract the first and second relations from G and rewrite them in 
the form of no-empty t-word = permutation times another t-word. We save all 


relations into a list to be used later. Let’s call this list LR. For example: 


Let: G@ = (x, 7 ey eye ye) Pt) eye"), te Y= 3, (x,tt®”)2,(x¥t)4, 
X-lyxlyxyxtxt?xt) . 

In|chapter 5|we use the relations: tats = yx?yx7yt™, tig = yx? yx ytats, 
tigty = yx lytiotr, tieti: = yrytioto, totatortig = tytatootis, and tytatootis = 


totataotig. 


We must also include some of the labeling of the powers of t. In|chapter 5 
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we use: t? = ty, ty = t?, titig = Id(N), and tytttit; = Id(N). The equations ty 


= t7ti9 and t7tj9 = t, also need to be included. 


Step 2: We start with an equation that we want to prove. For example, t)t3 = 
ptgto3tg, where p is allowed to be any permutation of N. t)t3 is the starting t-word 
and ptgte3tg is what we are looking for. We add the starting t-word to a tree 
structure, let’s name this tree Elements. A function called GetReationsToUse is 
used to conjugate all the relations LR by all the permutations in N. This is done 
every time the function is used. Each time we conjugate a relation, we check to 
see if the resulting equation can be applied to the t-word being processed. If the 
equation can be applied, then we add it to an array along with the proof of the 
new relation. The following is the Magma output of the list of relations that can 


be applied to ty t3: 


TY CLI Tec 
18)(14, 16)(20, 22) belong to N. 
Lemma 3: t19 = yx2yx—2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl =x * y * x°2 * y * x°-l1 *« yt2t10. Apply at 1. 
Found a new name: x * y * x°2 * y * x°-1l * yxt2t10t3. 


20)(10, 24)(11, 
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17)(14, 21)(18, 22) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl =y * x * y * x°2 * y * x*-1t12t3. Apply at 1. 
Found a new name: y * x * y * x°2 * y * x°—1*t12t3t3. 


14)(10, 21) (11, 
18)(12, 17)(15, 22) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl =y * x * y * x°-2 * yt9t1l4. Apply at 1. 


Found a new name: y * x * y * x°-2 * yxt9t1l4t3. 


15)(10, 23) (12, 
20)(14, 24)(17, 22) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl = x°-1 * y * x°2t11t6. Apply at 1. 


Found a new name: x*—l * y * x°2«xt1l1t6t3. 


18)(10, 16) (11, 
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20)(12, 15)(14, 23) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl =y * x°2 *« y * x°2 * yt22t5. Apply at 1. 

Found a new name: y * x°2 * y * x°2 * yxt22t5t3. 

Let. p= (1, 21) (23 5) Cay 19) (44-6) (7. 15) (8% 11) 09,. 138) (10; 
LZ Tas 1 16: 

18)(20, 23)(22, 24) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 = x°-2 * y * x°—2t6tll. Apply at 2. 

Found a new name: x°—2 * y * x°—2«xt13t6t1ll. 


95.18% 144 T9)\(7% 15; 
16, 11, 24, 20) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t3 =x * y * x°-l * y * x * y * xt23tl. Apply at 2. 
Found a new name: x * y * x°-l * y * x * y * x«xt21t23t1. 
Let p= (1, 215 20; 16)(9y 10, 19) 3)(y 7. 15, 14)05,. 17; 


23, Li(6s 12) 22, 
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18)(8, 22, 13, 9) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 = x°2 * y * x°-1t7t22. Apply at 2. 

Found a new name: x°2 * y * x°—I1«*tl0t7t22. 

Let p = (1, 21, 18, 23)(2, 8, 20, 14)(3, 12, 5, 19)(4, 16, 
99. 10) (6%, 17s, 7, 

15)(9, 24, 11, 13) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 =x * y * x°-l * y * x°2 * ytl6t20. Apply at 2. 

Found a new name: x * y * x-—-l * y * x°2 * yxt1l6t16t20. 

Let pS (leis 11 10) 8s 94) (By 12S 18s BO, 64. 19) (4y 44; 
12 TRS, 060 BCrs. oe 

23, 22, 8, 18) belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t8 = y * x°-2 * y * x * ytl4t18. Apply at 2. 


Found a new name: y * x°-2 * y * x *« yxt7tl14tl8. 
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Chl pe = Tid) 1701) pS 
tl = Id($)t7t19. Apply at 1. 
Found a new name: t7t19t3. 


Let p = (1, 3, 20, 24, 4, 5)(2, 6, 22, 23, 19, 21)(7, 9, 
14, 18, 10, 11)(8, 12, 

16, 17, 13, 15) belong to N. 

tl = t7t19 => 

(tl) p= (lds) i709 ps 

t3 = Id($)t9t21. Apply at 2. 


Found a new name: t1t9t21. 


Step 3: Now we have an array of equations that can be applied to a particular 
t-word. We apply these equations to produce new t-words. If a new t-word is not 
found in the tree of Elements, then we add it to the tree. We ensure that when 


we add a new t-word to the tree that we link it to its parent t-word. 


xyx’yx"ytt, ot, xyxt te 


Figure 6.1: First Level of the Tree. 


Step 4: We repeat the algorithm for every new t-word that has not been processed 


until we find the element we are looking for, in our case ptgto3tg. 


138 


The following is the list of relations that can be applied to yryx?yx7 | ty2t3t3: 


Let p= (1, 3, 20, 24, 4, 5)(2, 6, 22, 23, 19, 21)(7, 9, 
14, 18, 10, 11)(8, 12, 

16, 17, 13, 15) belong to N. 

12. = 17% 

(4101) "pp = (Il (8)407) "p= 

t3t3 = Id($)t9. Apply at 2. 


Found a new name: y * x * y * x°2 * y * x°—1*t12t9 


(iy AG: Ty ASy as 
23)(14, 16, 21) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl2 =y * x * y * x°-2 * y * xt15t10. Apply at 1. 


Found a new name: (x*-l * y * x°2)°2*t15t10t3t3 


10)69'n 195 L2L18s Be, 
21)(17, 22, 20) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t12 = x°2 * y * x * y * x°-l * yt2t23. Apply at 1. 
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Found a new name: x°—l * y * x°2 * yxt2t23t3t3 


10)(6, 16, 23, 14, 
7) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t12 = y *« x°-1t17t13. Apply at 1. 


Found a new name: x°2 * y * x°--l * y * x°2«et17t13t3t3 


i 
(@) 
+ 
so) 
II 


(1, 18, 2, 9, 4)(3, 16, 13, 24, 14)(6, 8, 21, 10, 
7) (12, 20, 15, 22, 19) 

belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl2 =x *« y * x°-l * y * x * y * xtlt21. Apply at 1. 

Found a new name: t1t21t3t3 

Let p = (1, 18)(2, 20)(3, 5)(4, 22)(6, 7)(8, 14)(9, 11) (10, 
16) (12, 19)(13, 

24)(15, 17)(21, 23) belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


tl2 =y *« x°-2 * y *« x * yt22t1l4. Apply at 1. 
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Found a new name: (y * x°2)°2«t22t1l4t3t3 

hep poi 212) Sa BOCAS 6) Cis Te 8e. LE) C9. Le ROS 
12)(14, 17)(16, 

18)(20, 23)(22, 24) belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 = x°-2 * y * x°—2t6tll. Apply at 2. 

Found a new name: y * x°2 * y * xX * y * x°-l * yx 


t23t6t11t3 


23, 18, 14, 19)(7, 15, 

16, 11, 24, 20) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 =x * y * x°-l * y * x * y * xt23tl. Apply at 2. 

Found a new name: t5t23t1t3 

Let p = (1, 21, 20, 16)(2, 10, 19, 3)(4, 7, 15, 14)(5, 17, 
D8. -T)(6,, 1s 2a, 

18)(8, 22, 13, 9) belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. => 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
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t3 = x°2 * y * x°-1t7t22. Apply at 2. 

Found a new name: x°2 * y * x°2 * y * x«xt24t7t22t3 

Let p = (1, 21, 18, 23)(2, 8, 20, 14)(3, 12, 5, 19)(4, 16, 
99. 10) (63. 17s. % 

15)(9, 24, 11, 13) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 =x * y * x°-l * y * x°2 * ytl6t20. Apply at 2. 

Found a new name: x*—l * y * x * yxt6t1l6t20t3 


Lee pS i: BT y dh, Os Oy 4) 85. 17, 6 80. Gy 19) (4. a, 


23, 22, 8, 18) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t8 = y * x°-2 * y * x * ytl4t18. Apply at 2. 


Found a new name: (y * x°2)°2«t3t14t18t3 


bai(ea- Bae, SCI 82; 
15)(18, 20, 19) belong to N. 
tl = t7t19 => 
Ctl) p=" (1d (3) tril 9.) “p= 
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t12 = Id($)t24t18. Apply at 1. 
Found a new name: y * x * y * x°2 * y * x°—1*t24t18t3t3 


14, 18, 10, 11)(8, 12, 
16, 17, 13, 15) belong to N. 
tl = t7t19 => 
(t1)"p = (1d($) 47019)" p == 
t3 = Id($)t9t21. Apply at 2. 


Found a new name: y * x * y * x°2 * y * x°—1*t12t9t21t3 


Due to the limited space in the diagram, only some branches will be 


shown in the diagram. Please see|Appendix G| for the full output that was used 


to create the diagram. 


yxyxytet, .t, 


(x" yx’)*t, st, otst, 


Figure 6.2: Second Level of the Tree. 


Finally, a function named FindTwordWithReducing detects that x~!yx? ytote3t3t3 
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is equivalent to «~!yx?ytate3t9, which triggers the algorithm to stop looking. 


xyx’yx"'ytt ot, yxyx“ytet, .t, xlyx’t, tet, 


ooo | tit9t21 


(x*yx’)’t, <t ott, 


Figure 6.3: Third Level of the Tree. 


Step 5: Now that we have found our t-word, all we have to do is to follow 
its path back to the top of the tree. Each time we move up the tree we print the 
proof for the t-word. If the algorithm does not find a solution in a timely manner, 
then the user must prove the relation by hand. 


The following is the final output: 


Start with t1t3 

Apply the following at t word position 1: 

Let p= (1, 19)(2, 15)(3,. 8) (4, 12)(5,. 23) (6, 16) (7, 13) (9, 
20)(10, 24)(11, 

17)(14, 21)(18, 22) belong to N. 
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Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl =yx* x * y * x°2 * y * x°-1t12t3 => 

t1t3 =y * x * y * x°2 * y * x*°—-l1etl2t3t3. 

Apply the following at t word position 1: 

Leip = (1, 18, 15) (2, Vi.. 28s 7, 6) GS, 165. 14)(8s- 23; 
VO) (9, 195. 12) (4a. 2a. 

21)(17, 22, 20) belong to N. 

Lemma 3: t19 = yx°2yx*°—-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl2 = x°2 * y * x * y * x°-l * yt2t23 => 

yore X * y * XQ & y & x°-l * t12t38t38 = x°-l * y * x°2 * yx 
$2t23t3t3. 

Reduce in the following way: 

x°-l * y * x°2 * yxt2t23t3t3 


x°-l * y * x°2 * yxt2t23t9 


This algorithm is used to prove all word problems for L2(5) over Ss, and 
(As)?:2 over As : 2, and it was tested on two additional groups not found in this 


thesis. A MAGMA implementation of the algorithm can be found in 
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Appendix A 


MAGMA CODE: Isomorphism 
of (23 x 2):11 


N:= TransitiveGroup (46,4) ; 
CompositionFactors(N); /x 
G 
| Cyclic(11) 


Cyclic (23) 


Cyclic (2) 
1, eh 


NL:=NormalLattice(N) ; 
for i in [1..4#NL] do 
if IsAbelian(NL[i]) then i; end if; 
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end for; 


/*The relevant path of the normal lattice of N. 


IsIsomorphic (NL4, AbelianGroup(GrpPerm,[46])); /* true x*/ 

A:=NI(1, 37, 28, 18, 8, 43, 338, 23, 14, 3, 39, 30, 20, 10, 
46, 36, 26, 16, 6, 41, 32, 22, 12, 2, 38, 27, 17, 7, 44, 
Ba OA 93. a. AO O62. 16.0. Ab Be. Oe. TH By AD, 
ST O42 tis 

IsIsomorphic (NL4, sub<N| A>) ; 

FPGroup (NL4) ; 

Test <x>:=Group<x |x “46>; 

f ,Testl ,k:=CosetAction( Test ,sub<Test | Id( Test )>); 

IsIsomorphic(NL4, Testl); /* true */ 

q, ff:=quo<N|NL4>; 

q; 

T:= Transversal (N,NL4); 

ff(T[2]) eq q.1; /* true «/ 

IsAbelian(q); 

/* N cannot be the direct product to NL4 and q°<T[2]> since 


N has no normal subgroup of order 11. Which means N is 
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an extension of NL4 by N/NL4. Let Q°N/NL4 = {NL[4]B} 
where T[2] =B= (1, 20, 9, 35, 42, 8, 32, 33, 38, 46, 
LBV 105-105. 86, 4a Ts BL Say “97 Abe 1G) By D8. 18; 
5, 27, 25, 22, 18, 48, 11, 40)(4, 24, 17, 6, 28, 26, 
21, 14, 44, 12, 39). N* 46:11 ~ (2 23):11 */ 
BNI), 20% 9, 3a, 42, 83 B25. 33, 385 46, 15) (2, 19... 10, 

964, dig Se Bd. Bay Sy AB ASN OS). 186 Ss OT, 25% D2, 
182 AS, Wy 140) (4s Oa, 7p Oy DEE OE, BL Aa aa. 19% 


39) ; 


procedure FindFirstElementAsProductOfLast2(L,A,B) 
for il in [0..(Order(A) —1)] do 
for i2 in [0..(Order(B) —1)] do 
if( L eq (A*il*B°i2) ) then 
ihe 10) ANB 12: 


end for; 
end for; 


end procedure; 


FindFirstElementAsProductOfLast2(A°B, A, Id(N)); 
A°B eq A“*25; 

Gases y= Gromp<. ey) || ea Ls ey es 
f, Test2 ,k:=Coset Action (G, sub<G|Id(G)>); 
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IsIsomorphic(N, Test2); /* True 8/ 


/* N ~ 46:11 x/ 


Appendix B 


MAGMA CODE: Isomorphic 
Type of ((23 x 2):11):2 


N:= TransitiveGroup (46,6) ; 
CompositionFactors (N) ;/* 
G 
| Cyclic(11) 
* 


Cyclic (2) 


Cyclic (23) 


Cyclic (2) 


1x / 
NL:=NormalLattice(N) ; 
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for i in [1..4#NL] do 
if IsAbelian(NL[i]) then i; end if; 
end for; /* 4 x/ 


/* NL[10] = TransitiveGroup (46,4) ~ (23 2 ):11 and has 
presentation Group< x, y | x°46, y°ll, x*y = x°25> */ 

Test<x .y >= “Group< xs *y¥° | 246, yr. x =e BS 

f ,Testl ,k:=CosetAction( Test ,sub<Test |Id( Test )>); 

IsIsomorphic(NL[10],Test1); /* true x*/ 

NL10:=NL[10]; 

temp:= TransitiveGroup (46,4) ; 

s, m=IsIsomorphic(temp, NL[10]) ; 

A:= m(temp!(1, 37, 28, 18, 8, 43, 33, 23, 14, 3, 39, 30, 
20, 10, 46, 36, 26, 16, 6, 41, 32, 22, 12, 2, 38, 27, 
17, 7, 44, 34, 24, 13, 4, 40, 29, 19, 9, 45, 35, 25, 15, 

By ADs Fly Ody. T1))s 

B:=m(temp!(1, 20, 9, 35, 42, 8, 32, 33, 38, 46, 15)(2, 19, 

10, 36; 41,7, 81; 34, 37,45, 16) (3, 23, 18,. 6, 97,25, 
22, 13, 43, 11, 40)(4, 24, 17, 6, 28, 26, 21, 14, 44, 


12, 39)); 


AB:=sub<N|A,B>; 
AB eq NL10; 


151 


q, ff:=quo<N|NL10>; 

q; 

T:= Transversal (N,NL10); 
ff(T[2]) eq q.1; /* true x/ 
C:=T[2]*11; 


/* N cannot be the direct product to NL4 and any other 
subgroup since N has no normal subgroup of order 2 
outside of NL10. Which means N is an extension of NL4 
by N/NL4. Let Q°N/NL10 = {NL[10]C} where C= (1, 42, 46, 
DR AO B22 OIL Udy AS. Ba. Bhi eG Gs 04s Th 29, 
30 05. Bey. Ete TB) (De Al. Ad, 2089, sols 22% AB. Ia. 
$85. 864 oy “105 Bee 28 123 B04 29,484 1814 18. 16) (254 26) 

N72:(11:(23 2 )) #/ 


procedure FindFirstElementAsProductOfLast2(L,A,B) 
for il in [0..(Order(A) —1)] do 
for i2 in [0..( Order(B) —1)] do 
if( L eq (A*il*B*i2) ) then 
il, i2, A*il*B*i2: 
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end procedure; 


FindFirstElementAsProductOfLast2(A°C, A, B); 
A*°45 eq A°C; /x true */ 
FindFirstElementAsProductOfLast2(B°C, A, B); 
B°C eq A*°36xB; 


Gacy 2 “Groups: x4. yy we | eA, yo eS ae es 
z= x°45, y°z = x 36*y>; 

f ,G1,k:=Coset Action (G, sub<G|Id(G)>); 

IsIsomorphic(N,G1) ; 


/* true */ 
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Appendix C 


MAGMA CODE: Shapes of 
Progenitor 3*°° : ((3: 7) : 2°) 


Images 


S:=Sym(56) ; 
xx:=S!(1, 28, 30)(2, 40, 39)(3, 55, 54)(4, 26, 29)(5, 25, 

10)(6, 31, 9)(7, 19, 18)(8, 

L632 s 17. BAS) AL SON TS, bos. 42a Bt. 34) 

(15, 56, 33)(20, 53, 

36) (22, 32, 38)(23, 49, 46)(35, 37, 44)(45, 48, 47); 
yy:=S!(1, 54, 45)(2, 25, 56)(3, 20, 22)(4, 34, 49)(5, 38, 

27)(6, 35, 48)(7, 44, 10)(8, 

51, 19)(9, 39, 55)(11, 31, 52)(12, 43, 17)(14, 15, 41) 
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(16, 24, 53)(18, 42, 
46)(21, 36, 47)(23, 40, 33)(26, 32, 30)(28, 50, 29); 


N:=sub<S|xx,yy>; 


CompositionFactors (N) ; 

NL:= NormalLattice (N) ; 

NL; 

for i in [1..4#NL] do 

if IsAbelian(NL[i]) then i; end if; 
end for; /x* 2x/ 


NL2:=NL | 2]; 
IsIsomorphic(NL2, AbelianGroup(GrpPerm ,[2 ,2 ,2]) ); 
je NG: 273 


q, ff:=quo<N|NL[2] >; 


q; 


T:= Transversal(N,NL[2]) ; 
T; 

ff(T[2]) eq q.1; 

fi(T [3] eq q.2; 
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CompositionFactors(q) ; 
NL:=NormalLattice(q) ; 

NL; 

for i in [1..#NL] do 

if IsAbelian(NL[i]) then i; end if; 
end for; /* 2 */ 


q, ff:=quo<q|NL[2] >; 


q; 


N- 2°3:(3:7) 


Ce ee ee ee ee ee es eo 


a:=0; b:=0; c:=0; d:=0; e:=0; f:=2; g:=6; index :=2187; 


Geax y 3 t>—Group< x} yi |) eyo y 3-4 oy OSL wy SL ee 
SSL ey SL ee ee ey aL ee 8, ye ep Sl 
Ta ey SL RS ge ok Set Ly eos) yas eet Oye ee) Pb 

, ((x * y°-1)*3«t)*c , (x * y°-let)°d , (y°-1 * x*-lxt 
ee ge Cee YF) CARE Eee et) By 

f ,G1,k:=CosetAction(G, sub<G|x,y>); 


CompositionFactors (G1) ; 
NL:=NormalLattice (G1) ; 
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NL; 

for i in [1..4#NL] do 

if IsAbelian(NL[i]) then i; end if; 
end for; /* 2 x«/ 


IsIsomorphic(NL[2], AbelianGroup(GrpPerm,[3 ,3 ,3 ,3,3,3,3])); 
/* true x/ 
q, ff:=quo<G1|NL/[2] >; 
IsIsomorphic(N, q); /* true */ 
G17N:3°7 


ee ee ee ee ee ee ee ee ee ee 


a:=0; b:=0; c:=0; d:=0; e:=3; f:=0; g:=3; index :=24; 


Geax y 3 t—Group< x} yi tT |, ae Syoy' 3 Sy OSL wy SL ee 
SSL ey SL ee ee ey SL ee 8, ye ey Sl 
Sa ey SL RS gs ok Set Ly eos) yas eet ye ee) 

, ((x * y°-1)*3«t)*c , (x * y°-let)°d , (y°-1 * x*-lxt 
ee ge Cee YF) CARE Eee et) By 

f ,G1,k:=CosetAction(G, sub<G|x,y>); 


CompositionFactors (G1) ; 
NL:=NormalLattice (G1) ; 
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NL; 

for i in [1..4#NL] do 

if IsAbelian(NL[i]) then i; end if; 
end for; /* 2 x«/ 


IsIsomorphic(NL[2], AbelianGroup(GrpPerm,[2 ,2 ,2 ,2 ,2 ,2])); 
/* true x/ 

q, ff:=quo<N|NL[2] >; 

q; 


IsIsomorphic(N, q); /* true */ 


LLELELEE LEE PELE EEE EE EEE eee ee Pee ee eee a 


a:=0; b:=0; c:=0; d:=0; e:=6; f:=2; g:=0; index :=2187; 
G<x,y,t>:=Group< x, y, t | x*3, y°3 , y * x°-l * y°-l1 * x 
“a1 ey Hl e oy ek ey Hl ee ey) 8, (hy xe y Hl x 
SAD ey, ee) Ret ye ew oe, “Geet tye Se) 
, ((x * y°-1)*3«t)*c , (x * y°-let)°d , (y°-1 * x*-lxt 
JRE UCR ee RE OD 9 Se 8 St) Be 
f ,G1,k:=CosetAction(G, sub<G|x,y>); 


CompositionFactors (G1) ; 
NL:=NormalLattice (G1) ; 


NL; 
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for i in [1..4#NL] do 
if IsAbelian(NL[i]) then i; end if; 


end for; /* 2 x«/ 


IsIsomorphic(NL[2], AbelianGroup(GrpPerm,[3 ,3 ,3 ,3,3,3,3])); 
/* true */ 


q, ff:=quo<G1|NL/[2] >; 
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Appendix D 


MAGMA CODE: Shapes of 
Progenitor 2*°° : ((3: 7) : 2°) 


Images 


S:=Sym(56) ; 
xx:=S!(1, 28, 30)(2, 40, 39)(3, 55, 54)(4, 26, 29)(5, 25, 

10)(6, 31, 9)(7, 19, 18)(8, 

L632 s 17. BAS) AL SON TS, bos. 42a Bt. 34) 

(15, 56, 33)(20, 53, 

36) (22, 32, 38)(23, 49, 46)(35, 37, 44)(45, 48, 47); 
yy:=S!(1, 54, 45)(2, 25, 56)(3, 20, 22)(4, 34, 49)(5, 38, 

27)(6, 35, 48)(7, 44, 10)(8, 

51, 19)(9, 39, 55)(11, 31, 52)(12, 43, 17)(14, 15, 41) 
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(16, 24, 53)(18, 42, 
46)(21, 36, 47)(23, 40, 33)(26, 32, 30)(28, 50, 29); 


N:=sub<S|xx,yy>; 


CompositionFactors (N) ; 

NL:= NormalLattice (N) ; 

NL; 

for i in [1..4#NL] do 

if IsAbelian(NL[i]) then i; end if; 
end for; /x* 2x/ 


NL2:=NL | 2]; 
IsIsomorphic(NL2, AbelianGroup(GrpPerm ,[2 ,2 ,2]) ); 
je NG: 273 


q, ff:=quo<N|NL[2] >; 


q; 


T:= Transversal(N,NL[2]) ; 
T; 

ff(T[2]) eq q.1; 

fi(T [3] eq q.2; 
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CompositionFactors(q) ; 
NL:=NormalLattice(q) ; 

NL; 

for i in [1..#NL] do 

if IsAbelian(NL[i]) then i; end if; 
end for; /* 2 */ 


q, ff:=quo<q|NL[2] >; 


q; 


N” 2°3:(3:7) 


ee ee ee ee ee ee ee ee 


a:=0; b:=0; c:=0; d:=0; e:=0; f:=3; g:=3; h:=7; GIndex 


:=576; 

G<x ,y,t>:=Group<x,y, t|x°3, y°3 , y * x°-1l * y°-l * x*-l * 
y°-l * x * y * x x 

Yo Sey 82, he ey aE oe ORD ew 
x * y°-l * x)*t*(y*-l 

* x°-l * y * x * y°-l1))*a, (x * yxtxt*((y°-l1, x)) )*b, (xx«t 
Es. Bde eg ye ed 

* x°—let*((y°-1, x)))*d, (x *« yat*((y°-1, x))*t*(y *« x) )%e 
e. (CG 


y)°3*t*(y*-1l * x * y°-1 * x*-1 * y*-1))‘f, 


yes 


3 


(xe ey 1h 


f ,G1,k:=CosetAction(G, sub<G|x,y>); 


CompositionFactors (G1) ;/* 


G 


k 


Cyclic (3) 


A(1, 8) = (24.8) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Lis ey. 


NL:=NormalLattice (G1) ; 
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( (x * y°-1)*3«t 
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NL; 

for i in [1..4#NL] do 

if IsAbelian(NL[i]) then i; end if; 
end for; /* 2 x«/ 


IsIsomorphic(NL[2], AbelianGroup(GrpPerm,[2 ,2 ,2 ,2 ,2 ,2])); 
/* truex/ 
q, ff:=quo<G1|NL/[2] >; 
CompositionFactors(q);/* 
G 
| Cyclic (3) 


| A(1, 8) (25,8) 


*/ 


COC CC CCCI ICCC CCCI CCC CCCI ICI I IC Ck kkk ak / 


a:=0; b:=0; c:=0; d:=0; e:=0; f:=6; g:=3; h:=0; GIndex 


:=73728; 

G<x,y,t>:=Group<x,y, t|x°3, y°3 , y * x°-l * y°-l * x*-l «x 
y°-l * x * y * x xy°-l * x, t°2, (t, x * y°-l * x*-l * y 
“-1l * x ), (x * yxt*(x * y°-1l * x)*t*(y°-l* x°-l * y * x 

* yo —1))°a, (ee yetet (Gy? —1, x)) )° by Geet (lx, ¥)) ) 


“6, (Gal * x let (Cy — 1, x) ods. (xe eS yet ("= 1, &))s 


t*(y * x) je, 


PS) ty (AREY SL) 8h) es 
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( (x *y)*3et*(y°-1 * x * y°-1 * x*-l * y 


f ,G1,k:=CosetAction(G, sub<G|x,y>); 


CompositionFactors (G1) ; 


NL:=NormalLattice (Gl) ; 


NL; 
[6] 


[1] 


/* 
Order 12386304 


Order 4128768 


Order 8192 


Order 128 


Order 64 


Order 1 


Length 


Length 


Length 


Length 


Length 


Length 


for i in [1..4#NL] do 


if IsAbelian(NL[i]) then i; 


end 


NL| 


fore fe Ax 


4]; /* 


Permutation group acting on a set of cardinality 73728 


Order = 8192 = 27°13 


*/ 


1 Maximal 


1 Maximal 


1 Maximal 


1 Maximal 


1 Maximal 


1 Maximal 


end if; 


(x * y°-lxt)*h>; 


Subgroups: 5 


Subgroups: 4 


Subgroups: 3 


Subgroups: 2 


Subgroups: 1 


Subgroups: */ 
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IsIsomorphic (NL[3], AbelianGroup(GrpPerm 
[2 5252,2,2,2,2,2,2,2,2,2,2])); /* false #/ 
q, ff:=quo<G1|NL[4] >; 
CompositionFactors(q) ; 


’ 


fe iG” (2°7)4(32L(23 8)) —#/ 


PET Bea EE ee ecko oR aah a ea ok a oka at ee gk Nek ee ah kee eek ae, 


a:=0; b:=0; c:=0; d:=0; e:=0; f:=9; g:=3; h:=0; GIndex 
:=1259712:; 


G<x,y,t>:=Group<x,y, t|x°3, y°3 , y * x°-l * y°-l * x*-l «x 
VS) Be Are ee a ae Ay. (ty ee SD ee 
y°-l * x ), (x * yet *(x * y°-l * x)*t*(y°-l* x*-l * y «* 
ek PEI) S): Ce we Pe NY, CH) 
Jeg fy ale ale Cy a1 x) dy Gee pat (Cy aly &)) 
*t“(y * x) )*e, ( (x * y)*3«t*(y*-1 * x * y°-1 * x*-1 * 
y°-1))*f, ( (x * y°-1)*3«t)*g, (x * y°-l«t)*h>; 

f ,G1,k:=CosetAction(G, sub<G|x,y>); 

CompositionFactors (G1) ;/* 

G 


| -@yelie(3) 


| A(1, 8) = 525-8) 


Cyclic (3) 


Cyclic (3) 


Cyclic (3) 


Cyclic (3) 


Cyclic (3) 


Cyclic (3) 


Cyclic (3) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 
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* 
| Cyclic (2) 
1 x/ 


NL:=NormalLattice (G1) ; 
NL; /x 


[6] Order 211631616 Length 1 


[5] Order 70543872 Length 1 


[4] Order 139968 Length 1 
ai Order 2187 Length 1 
Order 64 Length 1 
sae Order 1 Length 1 


for i in [1..4#NL] do 

if IsAbelian(NL[i]) then i; end 
end for; /* 4x/ 

pe Ge [OSE 3 BT re ep ses 


q, ff:=quo<G1|NL/[4] >; 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


if ; 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 
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CompositionFactors(q); /* 


G 
| Cyclic(3) 
| A(1, 8) = L(2.,,..8) 
ee 


fe Go (26ST (C35 29.-8)) ey 


GO CC CCCI CCCI CCCI ICICI I I I Ck kkk ak / 


a:=0; b:=0; c:=0; d:=0; e:=6; f:=6; g:=3; h:=0; GIndex 
:=1152; 

G<x,y,t>:=Group<x,y, t|x°3, y°3 , y * x°-l * y°-l * x*-l «x 
y-l * x * y * x * 

Vy Hl 2 ey OD Ke Sy Ke es EO 
x * y°-l * x)*xt*(y*-l 

* x°-l * y * x * y*-l1))*a, (x * yxtxt*((y°-l1, x)) )*b, (x«t 
ACG SD ey al 


eK Set OC Cy Hy. x) ) dy “Ce eet (Ly S1, x) et Cy ex) )*e 
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y)*3et*(y*-1 * x * y°-1l * x*-1 * y°-1))*f, ( (x * y°-1)*3xt 


\*g, (x * y*-l*t)*h 


5 


f ,G1,k:=CosetAction(G, sub<G|x,y>); 


CompositionFactors (G1) ;/* 


G 


| Cyclic(3) 


| A(1, 8) (258) 


| Cyclic (2) 


| *Cyrelie:€2) 


| Cyclic (2) 


| Cyclic (2) 


| Cyclic (2) 


| Cyclic (2) 


| Cyclic (2) 


1x / 


NL:=NormalLattice (Gl) ; 


NL; /* 


Order 


Order 


Order 


Order 


Order 


193536 


64512 


128 


Length 


Length 


Length 


Length 


Length 


for i in [1..4#NL] do 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


if IsAbelian(NL[i]) then i; end if; 


end for; 


[x 3 */ 


Subgroups: 4 


Subgroups: 3 


Subgroups: 2 


Subgroups: 1 


Subgroups: x / 
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IsIsomorphic(NL[3], AbelianGroup(GrpPerm,[2 ,2 ,2 ,2,2,2,2])); 


/* true x/ 


q, ff:=quo<G1|NL/3] >; 


CompositionFactors(q); /* 


G 


171 


| Cyclic(3) 
| A(1, 8) = 5(22:'8) 
de 


geGl ~ (2° 7) 2 (Ssh. 8)) -#/ 


PR eae BR eee kook oR at a Ok ea oka ae ae a gee Ne ok ee ah ek ee ee ak oe 


a:=0; b:=0; c:=0; d:=3; e:=0; f:=2; g:=0; h:=0; GIndex:=32; 

G<x ,y,t>:=Group<x,y, t|x°3, y°3 , y * x°-l * y°-l * x*-l * 
y-l * x * y * x * 

y Hla 825 ee we SOD Ke Sy Ke ee 
x * y°-l * x)*xt*(y*-l 

* x°-l * y * x * y°—-l1))*a, (x * yxtxt*((y°-l1, x)) )*b, (xx«t 
“(CR )) ey tyra 

* x°—let*((y°-1, x)))*d, (x * yxt*((y°-1, x))*t*(y * x) )%e 
/ (ee 

y)*3*t*(y*-1 * x * y°-1l * x*-1 * y*-1))*f, ( (x * y°-1)*3xt 
)°g, (x * y*-l*t)*h 

>; 

f ,G1,k:=Coset Action (G, sub<G|x,y>); 

CompositionFactors (G1) ;/* 

G 
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| Cyclic(3) 


Cyclic (7) 


Cyclic (2) 


Cyclic (2) 


| Cyclic (2) 


| Cyclic (2) 


| Cyclic (2) 


NL:=NormalLattice (Gl) ; 
NL; /* 
[7] Order 5376 Length 1 Maximal Subgroups: 6 


[6] Order 
a Order 
iin soee 

3] Order 
oo Order 
a Order 


1792 


256 


32 
32 


Length 


Length 


Length 
Length 


Length 


Length 


for i in [1..4#NL] do 


if IsAbelian(NL[i]) then i; end if; 


end for; 


NL[4]; 


je Ales 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 
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IsIsomorphic(NL[4] , AbelianGroup(GrpPerm, [2,2 ,2 ,2,2])); /x 


true */ 


PN DPBS: ees 


q, ff:=quo<G1|NL/4] >; 


CompositionFactors(q) ;/* 


G 


| Cyclic (3) 


Cyclic (7) 


Cyclic (2) 


NL:= NormalLattice(q) ; 


NL; /* 
[4] 


3 


Order 


Order 


Order 


Order 


168 


56 


8 


Length 1 


Length 1 


Length 1 


Length 1 


for i in [1..4#NL] do 


end for; /* 2 x«/ 


Maximal Subgroups: 


Maximal Subgroups: 


Maximal Subgroups: 


Maximal Subgroups: 


if IsAbelian(NL[i]) then i; end if; 


FG DOG Oe Be ca) oy 
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N:=q; 
q, ff:=quo<N|NL[2] >; 
CompositionFactors(q) ; 
NL:=NormalLattice(q) ; 
NL; 
for i in [1..4#NL] do 

if IsAbelian(NL[i]) then i; end if; 
end for; /*2 */ 
eG? Dae Be (Gas oe. 


COC OCC CCCI CCCI ICICI CCCI III a aK ak kk ak / 


a:=0; b:=0; c:=0; d:=3; e:=0; f:=4; g:=7; h:=0; GIndex 
:=512; 


G<x,y,t>:=Group<x,y, t|x°3, y°3 , y * x°-l * y°-l * x*-l «x 
yo Hl oe ye ee Hl exe, £2, (ty x & yal & Hl 
y°-l * x ), (x * yxt*(x * y°-l * x)*t*(y°-1 * x°-1l * y * 
eS, Cl apa (HS BIL DO 9) 
eco, (y°-l * x*-let*((y*-1, x)))°d, (x * yxt*((y*-1, x) 
Jat (y * x) )°e, ( (x * y)*3et*(y°-l * x * y°-1 * x*-l 
* y°—-l))*f, ( (x * y°-1)*3*t)*g, (x * y°-l*t)*h >; 

f ,G1,k:=CosetAction(G, sub<G|x,y>); 

CompositionFactors(Gl); /x 

G 


Cyclic (3) 


Cyclic (7) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


176 


| Cyclic (2) 


* 


| Cyclic (2) 


ie 


NL:=NormalLattice (Gl) ; 


NL; /* 
[9] Order 
[8] Order 
[7] Order 
[6] Order 
[5] Order 
4 Order 
3 Order 
2 Order 
[1] Order 
for 


i in [1..#NL] 


86016 


28672 


4096 


512 
512 


64 


1 


Length 


Length 


Length 


Length 
Length 


Length 


Length 
Length 


Length 
do 


if IsAbelian(NL[i]) then 


end 


for; 


[x 5 */ 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 


Subgroups: 
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NL[5]; /* 2°9 #/ 
fe Go” 2°9:q #/ 
q, ff:=quo<G1|NL[5] >; 
NL:=NormalLattice(q) ; 
NL; 
for i in [1..4#NL] do 
if IsAbelian(NL[i]) then i; end if; 
end for; /* 2 x«/ 
pe Ge? 2 O02" asq) ey 
N:=q; 
q, ff:=quo<N|NL[2] >; 
NL:=NormalLattice(q); 
NL; /* [38] Order 21 Length 1 Maximal Subgroups: 2 


[2] Order 7 Length 1 Maximal Subgroups: 1 


[1] Order 1 Length 1 Maximal Subgroups: */ 


PRM FEE EOE (OO Bas 8) ey 


COCCI CCCI CCC CCCI ICCC I a KCK kk: / 


a:=0; b:=0; c:=0; d:=3; e:=6; f:=4; g:=0; h:=7; GIndex 
:=8192; 
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G<x,y,t>:=Group<x,y, t|x°3, y°3 , y * x°-l * y°-l * x*-l «x 
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y-l * x * y * x * 


yal ex, 6° 2) ee Oa) aD ey Le ey UE oe pet 


x * y°—l * x)at*(y°—-l * x°-l * y * x * y*—-1))*a, (x * yx 
tat *((y°—1, x)) )*b, (xat*((x, y)) )*c, (y°—-l * x°—lat 

“((y°-1, x)))*d, (x * yet *((y?—1, x))#t*(y # x) )ve, 
(x * y)*3«t*(y°-l * x & y°-l * x*-1l * y*-l))*f, ( (x « y 


“—1)*3«t)*g, (x * y°-l*t)*h >; 


f ,G1,k:=CosetAction(G, sub<G|x,y>); 


CompositionFactors(Gl); /x 


G 


| Cyclic (3) 
| Cyclic(7) 
* 
| Cyclic (2) 
| Cyclic (2) 
* 
| Cyclic (2) 
* 
| Cyclic (2) 


| Cyclic (2) 


Cycle?) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 


Cyclic (2) 
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181 


NL:=NormalLattice (G1) ; 

NL; 

for i in [1..4#NL] do 

if IsAbelian(NL[i]) then i; end if; 
end for; /* 9 x/ 

PEG” 2102 gq -xy 


q, ff:=quo<G1|NL[9] >; 

NL:=NormalLattice(q) ; 

NL; /x 

[6] Order 1344 Length 1 Maximal Subgroups: 5 


[5] Order 448 Length 1 Maximal Subgroups: 4 


4 Order 64 Length 1 Maximal Subgroups: 2 3 


3 Order 8 Length 1 Maximal Subgroups: 1 
2 Order 8 Length 1 Maximal Subgroups: 1 
[1] Order 1 Length 1 Maximal Subgroups: */ 


for i in [1..#NL] do 

if IsAbelian(NL[i]) then i; end if; 
end for; /* 4 x«/ 

Pe GO” 210s (2° 65g) Kf 
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N:=q; 

q, ff:=quo<N|NL[4] >; 

NL:=NormalLattice(q); 

NL; /x 

3] Order 21 Length 1 Maximal Subgroups: 2 


[2] Order 7 Length 1 Maximal Subgroups: 1 
[1] Order 1 Length 1 Maximal Subgroups: */ 
feo © 2°10 O° G27 py ep 
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Appendix E 


MAGMA CODE: Induction of 
5:11 Onto L2(11) 


/* Character Induction */ 


MAGMA: Using Induction of 5:11 onto L2(11) To Find a 


Monomial Representation of L2(11) 


/* Character Induction */ 

S:=Sym(12) ; 

xeeolle. Te Gotten 64 8. 12s. As LL) 
yy:=S!(1, 8, 2)(3, 4, 7)(5, 12, 11)(6, 9, 10); 


G:=sub<S|xx,yy>; 
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FPGroup (H) ; 

HHkz ,w>:= Group<z, w | z°5, w—-2 * z°-1 * w—-l * z, 2°2 * 
w—-l * 22 * w-l * Z * W>; 

f ,H1,k:=Coset Action (HH, sub<HH| Id(HH)>); 

s:=IsIsomorphic(H1, H); 


s; /* true */ 


SchH:=SchreierSystem (HH, sub<HH| Id (HH) >); 
Hword:= function (Perm) 
for w in SchH do 

seq := Eltseq(w); 

p:= Id(H); 

for j in seq do 

if j eq 1 then p:=px*zz; end if; 

if j eq —1 then p:=pxzz°—1; end if; 
if j eq 2 then p:=pxww; end if; 
if j eq —2 then p:=pxww’—-1; end if; 

end for; 


if Perm eq p then return w; end if; 
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end for; 


end function; 


ClassesH:=Classes (H) ; 


FPGroup(G) ; 

/* x°5, y°3, y * x°2 * y°-l * x°2 * y * x°-l1 * y-l x 
x°-l, Cat ae ce ae omar eo io ame vs 

GGe- x.y SS =Groupex) «-y" || eS, y* Sy yore 2, ey He AD 
y * x°-l * y°-l * x*-l, (ae Seer ay oe ae 

HGG; /* 660 x«/ 


f ,G1,k:=Coset Action (GG, sub<GG| Id(GG)>); 
s:=IsIsomorphic(Gl, G); 


s; /* true */ 


ClassesG:= Classes (G) ; 
25:=CH[2][2]; 
GCinterceptsH:=[Set(Class(G, ClassesG[i][3])) meet Set(H): i 
in [1..4#ClassesG |]; 
stra 77s 
for g in GCinterceptsH[4] do 
for i in [1..#ClassesH] do 
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if g in Class(H, ClassesH[i][3]) then 
c= CH[2] [i]; 
if c eq z5 then str:= str cat "25 + ”; end if; 
if c eq z5°2 then str:= str cat ” 
z5°2 4+ ”; end if; 
if c eq z5°3 then str:= str cat ” 
z5°3 + ”; end if; 
if c eq z5°4 then str:= str cat ”z5°4 + ”; end if; 
end if; 
end for; 
end for; 


str; 


for g in GCinterceptsH[4] do 
for i in [1..#ClassesH] do 
if g in Class(H, ClassesH[i][3]) then CH 
[2) [als “end: ars 
continue ; 
end for; 


end for; 


GCinterceptsH [5]; 


for g in GCinterceptsH[5] do 


"kai (” cat Sprint (g) cat *) 4 Ms 


for g in GCinterceptsH[5] do 


for i in [1..#ClassesH] do 


if g in Class(H, ClassesH [i ][3]) 


c:= CH[2][i]; 


if c eq z5 then str:= str cat ”z25 + 
if c eq z5°2 then 

z5°2 + ”; end 

if c eq z5°3 then 

z5°3 + ”; end 


if c eq 25°4 then str:= str cat "25°44 ”; 


end if; 
end for; 
end for; 


Str; 


for g in GCinterceptsH[7] do 


"kai (” cat Sprint (g) cat *) 4 v3 


end for; 
Stirs 077" 
for g in GCinterceptsH[7] do 


for i in [1..#ClassesH | 


do 


end 
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then 


str cat ” 


str cat ” 


if; 


if g in Class(H, ClassesH[i][3] 
c= CH[2] [i]; 
if c eq z5 then str:= str cat "25 + ”; end if; 
if c eq z5°2 then str: 
z5°2 4+ ”; end if; 
if c eq z5°3 then str: 
z5°3 + ”; end if; 


) 


if c eq 25°4 then” str:= str cat ”z5°4 4+ ”; end 


if c eq 1 then str:= str cat "1+ ”; end if; 
end if; 

end for; 
end for; 


str; 


for g in GCinterceptsH[8] do 


”kai(” cat Sprint (g) cat *) f: ae 


for g in GCinterceptsH[8] do 
for i in [1..#ClassesH] do 
if g in Class(H, ClassesH[i][3] 
c:= CH[2] [i]; 
if c eq z5 then str:= str cat "25 + ”; end if; 


if c eq 25°2 then str:= str cat ”z5°2 4+ ”; end 


) 
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then 


str cat ” 


str cat ” 


ifs 


then 


its 
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if c eq z5°3 then str:= str cat ”z5°3 + ”; end if; 


if c eq 25°4 then str:= str cat "25°44 ”; end if; 
if c eq 1 then’ str:= str cat "1+ ”; end if; 
end if; 
end for; 
end for; 


str; 


Strisi 8 
for g in GCinterceptsH[8] do 
c:= CH[2](g); 


if c eq z5 then str:= str cat ”z5 + ”; end if; 


if c eq z5°2 then str:= str cat ”z5°2 + ”; end if; 
if c eq 2z5°3 then str:= str cat ”z5°3 + ”; end if; 
if c eq z5°4 then str:= str cat ”z5°4 + ”; end if; 


if c eq 1 then str:= str cat "1+ ”; end if; 
end for; 
str; 


COCCI CCCI CCCI CII Ik a ak kkk / 


S:=Sym(12) ; 
SSIS by Oe ey OA Oyo ee LOS. 10h. ELS 


G:=sub<S|xx,yy>; 
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S:=Sym(12) ; 

xerSel( ay “9. 44 56, 85 125 10°11): 

yy:=S!(1, 8, 2)(3, 4, 7)(5, 12, 11)(6, 9, 10); 

G:=sub<S|xx,yy>; 

CG:= CharacterTable(G) ; 

Fe sub2e Gs. 2 Be WO By, Pe By Py es 1 Dy De A, 
3, 7, 6, 4, 5, 8, 10)>; 

FAL; 

HG/ AH; 

CH:= CharacterTable (H) ; 

CH[ 2]; 

C:= Classes (G) ; 

HC; 

Induction (CH[2] ,G) eq CG[7]; 

#OG [7]; 

OG[7] (Id (G) ) ; 


T:= Transversal (G,H) ; 
#T eq Index(G,H) ; 


/* The transversal changes. We save this transversal. */ 
T= [a(G), 
Gi Ts Oy Ay: BOS By 18, W0y. Aa 
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1: Ws Oe. Bo VS ye 4s Uae oly 
is, Ba Oe De Rit. 192 Ay 10s By 
1 HMOs Pie Og Olay ye. Ble Gs 4) 


C:=CyclotomicField (5) ; 
A:=[[C.1,0,0,0,0,0,0,0,0,0,0,0]: i in [1..12]]; 
for 1yj) in [1.12] -do Ali;j] <=0; end tor; 


for beg ine [lee 12}: 2d 

if T[i]*xx*T[j]*—1 in H then 
Alii] :=<CH[2] (Tli]*xx*T[j]*-1); 
end if; 

end for; 

GG:=GL(12,C) ; 

GG!A; 


/* Print latex matrix */ 
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strM:= ”\\begin{pmatrix}\n”; 
matrix:= GGIA; 
for i in [1.. 12] do 

for j in [1.. 12] do 

strM:= strM cat Sprint(matrix[i][j]) cat 
» &? 

end for; 

strhlis=strM eat ANA nes 
end for; 
strM:= strM cat ”\\end{pmatrix }”; 
strM ; 
/*\begin{ pmatrix} 
081 &0&0&0808&20820820&0&0&0& \\ 
08&0&0& z 5 *3&0&08&0&0&08&0&0&0& \\ 
O&0&0&0&0& z 5 *3&0&0&0&0&0&0& \\ 
0808 0&0 0808208 z 5 *2&0&08&0&0& \\ 
1&0&08&20820& 0&0 0&08&08&0&0& \\ 
O&0&0&0&08&0& z 5 *280&0&0&0&0& \\ 
08208&0&0&20820820820820&1&0&0& \\ 
0820820808 1&08&2082080&0&0&0& \\ 
0&0 2 5 *2&0&08&20&0&0&08&0&0&0& \\ 
08208 0&2 0808 08&20820& z 5 *3&08&0&0& \\ 
08208 0&0&0&08&0820&0&0& z 5 *3&0& \\ 
0820&0&0&0&08&08208&0& 0808 2-5 *2& \\ 
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\\end{ pmatrix }*/ 


B:=[[C.1,0,0,0,0,0,0,0,0,0,0,0]: i in [1..12]]; 
tor? 4 9, on (a 212). de Bla 3.4)]' #=03:-end» ter: 
for i,j in [1..12] do 


if T[i]*yy*T[j]*~—1 in H then 


Bli,j] :=CH[2](T[i]*yy*T[j]*-1); 
end if; 

end for: 

GG:=GL(12,C) : 

GG!IB: 


/* Print latex matrix */ 
strM:= ”\\begin{pmatrix}\n”; 
matrix:= GG!B; 
for 1 an, [1.2 12) do 

Pee 7 a: [Vee 12) ode 

strM:= strM cat Sprint(matrix[i][j]) cat 
> Br. 

end for; 

strM:= strM eat ” \\\\\n"5 
end for; 
strM:= strM cat ”\\end{pmatrix }”; 


strM; 
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primes := [| p: p in [7..1000] | IsPrime(p) ]; 
for p in primes do 

if ((p—-1) mod 5) eq 0 then p; break; end if; 
end for; /* 11 */ 


/* We change this rep of G over a finite field. Find a 
prime p such that GF(p) = Zp has elements of order 5. p 
is such that 5|(p—l). Then p—1 = 5k or p =5k+1. k=2 


gives the smallest such p. So p= 11 */ 


for n in [2..10] do n, n*5 mod 11; end for; 


/* 5 is element of order 5 in Z11 x/ 


if A[i][j] eq Z5 then A[i][j]:= 5; end if; 
if A[i][j] eq Z5°2 then A[i][j]:= 5°2 mod 11; end 
if; 
if A[i][j] eq Z5°3 then A[i][j]:= 5°3 mod 11; end 
if; 
if A[i][j] eq Z5°4 then A[i][j]:= 5°4 mod 11; end if; 


end for; 
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/* Print latex matrix */ 
strM:= ”\\begin{pmatrix}\n”; 
matrix:= GG!A; 
for i in [1.. 12] do 

for j in [1.. 12] do 

strM:= strM cat Sprint(matrix[i][j]) cat 
> Br. 

end for; 

strMi= strM cat. k\\ ns 
end for; 
strM:= strM cat ”\\end{pmatrix }”; 


strM; 


/*\ begin{ pmatrix} 

O& 1k 0820&0&0&0&0&0&0820&0& \\ 
O&O&084&0&0&0&0&0&08&0&0& \\ 
O&O&0820&0& 48208 0&0&080&0& \\ 
O&O&0820&0&0&0&3&0&08&0&0& \\ 
1&080&0&08&0&0&0&0&0&0&0& \\ 
O&O&0820&0&0&3&0&0&08&0&0& \\ 
O&O&0820& 0808208 0&0&18&0&0& \\ 
O&0&20820& 1& 0808 0&0&0820&0& \\ 
O&O&380&0&0&0&0&0&08&0&0& \\ 
O&O&0820& 0808208 0& 4&0820&0& \\ 
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(S08 O&0&O&O&0KO&0&084&0& \\\ 


(S08 O&0£0&0&0K0&0£080&3& \\\ 


\end{pmatrix} */ 


eq Z5 then B[i][j]:= 5; end if; 


eq Z5°2 then B[i][j]:= 5°2 mod 11; end 


eq Z5°3 then B[i][j]:= 5°3 mod 11; end 


then B[i][j]:= 5°4 mod 11; end if; 


/* Print latex matrix */ 


strM:= ”\\begin{pmatrix}\n”; 


matrix:= GG!B; 


for i in [1.. 12] do 


3 aan me oa ae 


12] do 


strM:= strM cat Sprint(matrix[i][j]) cat 


end for; 


” &” ‘ 
’ 


strM:= strM cat. ? \\\\\n"3 


end for; 


strM:= strM cat ”\\end{pmatrix }”; 


strM; 


\begin{ pmatrix } 

080821 & 0808082080808 08208& 08 
O&08208 082580820808 0&08&208 08 
O&08&20& 082080838082 0& 0820808 
O&0820& 08080820808 3& 0820808 
O&08208 0820808208 18 0& 0820808 
O&0820& 18080820808 0& 0820808 
ASO&0&0&0&0&0& 0&2 0808080 
O& 9808080808208 082080820808 
O&08208 08208 48208082 08& 0820808 
O&0820& 0820808208 0820& 081 & 08 
O&08208 0808082080808 0820& 1& 
O&08208 0808080808208 1 &0& 08 


\end{ pmatrix} 


GGG:=GL (12,11); 

A:=GG!A; 

A;/x* 
01000000000 0 
00040000000 0 
00000400000 0 


0000000300 0 0 


\\ 
\\ 
\\ 
\\ 
\\ 
\\ 
a 
\\ 
\\ 
a 
\\ 
\\ 
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EY OC DOD FO 
(on) 
am) 


So cn > 
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a > > 
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S:.9 Os Os Or Or SO OO OS 


oS 


(a SS) 


w 


a) 


Co oO Oo 


(Oe) 
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#sub<GGG|A,B>; 


s:=IsIsomorphic (G, sub<GGG|A,B>) ; 


D4 


/* true */ 


168 aq, te. ee do 


if A[i][j] ne 0 then 
7and” cat Spring(2) cat ” 3” scat. Sprint(] ) 
eat.) =? eat Sprink (Al 1) [jy seats @ 
impliés:” tat "t.4" cat Sprint(1) cat ?} 
Sted tat, Sppinti.y eag Fp eat 


Sprint (A[i][j]) cat "\\\\" ; 


end if; 
end for; /x 

a_{1,2} = 1 \implies t_{1} = t_{2}71\\ 
a_{2,4} = 4 \implies t_{2} = t_{4}74\\ 
a_{3,6} = 4 \implies t_{3} = t_{6}74\\ 
a_{4,8} = 3 \implies t_{4} = t_{8}°3\\ 


a 


© 


© 


© 


{5,1} = 1 Nimplies t2f5) = t-f1 1\\ 


_{6,7} = 3 \implies t_{6} = t_{7}73\\ 
{7,10} = 1 \implies t_{7} = t_{10}*1\\ 
_{8,5} = 1 \implies t_{8} = t_{5}71\\ 
_{9,3} = 3 \implies t_{9} = t_{3}73\\ 
_{10,9} = 4 \implies t_{10} = t_{9}74\\ 
_{11,11} = 4 \implies t_{11} = t_{11}*4\\ 


a_{12,12} = 3 \implies t_{12} = t_{12}°3\\ */ 


labeling :=[]; 
for i in’ [1..120] do 
tsubscript:= i mod 12; 
power:= (i div 12) + 1; 
if tsubscript eq O then 
tsubscript:=12; 
power:= i div 12; 
end if; 
labeling:=labeling cat [[tsubscript , power ]]; 


end for; 


S:=Sym(120) ; 


arr x= [07 cy an. [1s.120|)3 


FindLabels:=procedure(row, powl, col, pow2, arr) 


/* Process labels to create an array that will be 
turned to a permutation */ 
labell:= Position(labeling , [row, powl mod 11]); 
label2:= Position(labeling , [col , pow2*powl mod 
11]); 
arr[labell]:= label2; 
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srow := Sprint(row); /* turn to a string */ 
scol := Sprint(col); 

spowl := Sprint (powl) ; 

spow2 := Sprint (pow2) ; 


labell:= Sprint(labell); 
label2:= Sprint (label2); 


if powl eq 1 then 


je a_{1,2} = 3 t_1 = t_2°3 «/ 
"a4 “Cat srow- Cate. cat. sco) cat.) (= ” eat spow2 
cat, * \Vamplies: ” at: "tet ead; srew cat. 7) ts 


{” cat scol cat ”}*{” cat spow2 cat ”} \\implies 
eS 
end if; 
Pete) ia C2 Bm, Re 
if powl gt 1 then 
Oto Gat. -srowe Cabo PL" cade spowl! scat. 7h: SP" eat 
tA” Cat seol cat ?)o7” cat spow2 cat. 7 })"{” 
cat -spowl “cat ?}°=. ” -cat ?t. 4" cat. scol -cat 
"\*s" cat Sprint (powl*pow2) cat ”} =” cat "t_ 
{” cat scol cat ”}*{” cat Sprint (powl*xpow2 mod 


11) cat ”}. \\implies ” cat labell cat ” \\ 
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implies ” cat label2 cat ”\\\\”; 


end if; 


end procedure; 


/* x for row in the matrix.*/ 
for rim [1..12] do 
/* c for column in the matrix. */ 
for c in [1..12] do 

if A[r, c] ne 0 then 
for p in [1..10] do 


value:= StringTolInteger(Sprint(A[r, c]), 12); 


FindLabels(r, p, c, value, “arrX); 
end for; 
end if; 
end for; 
end for; 
ie 


asf h.<2) = Db Vimphes: tefl} = t.f2}°CL) \amplires: \\ 
t_{1}°{2} = (t-{2}°{1}) {2} = t-{2}°{2} = t_{2} {2}. \ 
implies 13 \implies 


14\\ 


beg etsy Sheehy Ey) 
implies 25 \implies 

26\\ 

t_{1}°{4} = (t-{2}°{1}) 
implies 37 \implies 

38\\ 

beat Lop — Chet 2y Al} 
implies 49 \implies 

50\\ 

t_{1}°{6} = (t-{2}°{1}) 
implies 61 \implies 

62\\ 

bE Le) = (teq 2p" 41) ) 
implies 73 \implies 

74\\ 

t_{1}°{8} = (t-{2}°{1}) 
implies 85 \implies 

86\\ 

batty (TO) = Ct ey 1} ) 
implies 97 \implies 


98\\ 


t_{1}° {10} = (t-{2}°{1}) “{10} = 


implies 109 


\implies 110\\ 


TAS eS 


Ay = 


ase 


Op = 


A = 


Bt 


id ie 


{2} °{3} 


{2} °{44 


{2} °{5} 


{2} {6} 


-{2}°{7} 


{2} °{8} 


{23° {9} 


t-{2}° {3}. \ 


t-{2}°{4}. \ 


t_{2}°{5}. \ 


t-{2}°{6}. \ 


t-{2}°{7}. \ 


t_{2}°{8}. \ 


t-{2}°{9}. \ 
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t_{2}°{10} = t_{2}7{10}. \ 


a2, 4) =A implies. +242) = t44) 44) Viniplies’ \\ 
Geta ep" tee ye 185% 


t_{2}°{2} = (t-{4}°{4})° 


implies 14 \implies 

88\\ 

t-{2}°{3} = (t-{4}°{4}) 
implies 26 

\implies 4\\ 

t_{2}°{4} = (t_{4}°{4}) 
implies 38 

\implies 52\\ 

t-{2}°{5} = (t-{4}°{4}) 
implies 50 

\implies 100\\ 

t_{2}°{6} = (t-{4}°{4}) 
implies 62 

\implies 16\\ 

t_{2}°{7} = (t-{4}°{4}) 
implies 74 

\implies 64\\ 

t-{2}°{8} = (t-{4}°{4}) 
implies 86 

\implies 112\\ 

t-{2}°{9} = (t-{4}°{4}) 


{2} = 


“Tse = 


i ae 


{8}. = 


Oye 


ONE 


Beige 


i) ee 


“{12} 


“{16} 


“{20} 


{24} 


“{28} 


“{32} 


“{36} 


tio 4ar tite A 


t_{4} {5}. \ 


t_{4} {9}. \ 


t-{4} {2}. \ 


t_{4} {6}. \ 


t_{4}7{10}. \ 


t_{4} {3}. \ 
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implies 98 

\implies 28\\ 

t_-{2}°{10} = (t_{4}°{4}) {10} = t_{4}°{40} = t-{4}°{7}. \ 
implies 110 

\implies 76\\ 

a_{3, 6} = 4 \implies t_{3} = t_{6}*{4} \implies \\ 

t-{3} {2} = (t-{6}"{4}) {2} = t_{6}°{8} = t_ {6} {8}. \ 
implies 15 \implies 

90\\ 

t_-{3}°{3} = (t-{6}"{4}) {3} = t_{6}°{12} = t_{6}*{1}. \ 
implies 27 

\implies 6\\ 

t-{3}°{4} = (t-{6}°{4}) {4} = t_{6}°{16} = t_{6}7{5}. \ 
implies 39 

\implies 54\\ 

t-{3}°{5} = (t-{6}"{4}) {5} = t_{6}°{20} = t_{6}*{9}. \ 


implies 51 


\implies 102\\ 

Cfo p 16} = (tf GO} 44h) {6} = taf GP 24) ant {6} {2 hs | 
implies 63 

\implies 18\\ 

Gols pho (tal OP AAP Tp GOP 28} tf 6 PPO} e | 


implies 75 
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\implies 66\\ 

ta{3p {8} = (top {4} {8} = tO} {22} = 2. (6} 1 10y.. 
implies 87 

\implies 114\\ 

t-{3} {9} = (t- {6} {4}) {9} = t-{6}° {36} = t_{6} {3}. \ 


implies 99 


\implies 30\\ 

t_-{3}°{10} = (t-{6}°{4}) “{10} = t_{6}°{40} = t_{6} {7}. \ 
implies 111 

\implies 78\\ 

a_{4, 8} = 3 \implies t_{4} = t_{8}°{3} \implies \\ 

t_{4}7{2} = (t-{8}°{3}) {2} = t-{8}°{6} = t-{8}>{6}. \ 
implies 16 \implies 

68\\ 

t_{4}°{3} = (t-{8}°{3}) {3} = t-{8}°{9} = t-{8}° {9}. \ 
implies 28 \implies 

104\\ 

baqey {4p = (tf By sy) {Al = tat 8y ey tafe ay 
implies 40 

\implies 8\\ 

toa AD SMR ST er) eye ee 8 oy = tarey ae 
implies 52 


\implies 44\\ 
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t-{4} {6} = (t-{8}7{3}) {6} = t_{8}°{18} = t_{8}7{7}. \ 
implies 64 

\implies 80\\ 

t_{4} {7} = (t-{8}7{3}) {7} = t_{8}°{21} = t_{8}° {10}. \ 
implies 76 

\implies 116\\ 

t_{4} {8} = (t-{8}7{3}) {8} = t_{8}7{24} 


implies 88 


t_{8} {2}. \ 


\implies 20\\ 

tte 19 = Cba(B} 18} 19) = taf 8y 127). = ts [8 ope 
implies 100 

\implies 56\\ 

t_{4}° {10} = (t-{8}°{3}) “{10} = t_{8}° {30} = t_-{8} {8}. \ 
implies 112 

\implies 92\\ 

a-{5, 1} = 1 \implies t.{5}.= t.{1}°{1} \impltes \\ 

is Oya fay) =: Apa 4 
implies 17 \implies 

13\\ 

barop 1s s— Chat) at iS ted Sy Se se 
implies 29 \implies 

25\\ 

‘eh Gb= GIs = p= HP a 


implies 41 \implies 

Sri 

teq op {5} = (tefl td) te} = 
implies 53 \implies 

49\\ 

Gag Oy AGS = (hotly ayy 16 f= 
implies 65 \implies 

61\\ 

Meir GP ayy = 
implies 77 \implies 

T3\N 

tatoy 185) Chath ty) eS 
implies 89 \implies 

85\\ 

bop Og Sos, = 
implies 101 

\implies 97\\ 

t_{5}°{10} = (t_{1}°{1}) “{10} = 
implies 113 


\implies 109\\ 


t 


t 


t 


t 


t 
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SV eg ba EY fee 


stip {Op = tefl {eke \ 


EP ES etal pode Te. 


{LP teh = tf Tet. 


ro A Ot ee oe ai ac 


Ci ote io 


a_{6, 7} = 3 \implies t_{6} = t_{7}°{3} \implies \\ 


t_{6}°{2} = (t-{7}°{3}) “{2} = 


implies 18 \implies 


t 


Ady AOS = ah VO pe \ 


67\\ 

t-{6}°{3} = (t-{7}°{3}) 
implies 30 \implies 

103\\ 

t_{6} {4} = (t-{7}°{3}) 
implies 42 

\implies 7\\ 

te{OP {Sp = Chit} 43h) 
implies 54 

\implies 43\\ 

t_{6} {6} = (t-{7}°{3}) 
implies 66 

\implies 79\\ 

bat Op Ty Stats Sh) 
implies 78 

\implies 115\\ 

t-{6} {8} = (t-{7}° {3}) 
implies 90 

\implies 19\\ 

CHOP (oh Cted ef 48h) 
implies 102 

\implies 55\\ 


taf Of 1LOp = Ce tip ds) {10y = 


implies 114 


"3 = 


aa 


{5} = 


Oe 


ides 


SESE 


oy = 


t_ 


SPT Pa = 


{7} {12} = 


LAR = 


_{7} {18} = 


SDPO T = 


Lt 


t_{7}°{30} 
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Oe a) ee Os aa me 


t_{7} {1}. \ 


tee a 


toner athe \ 


eg any ome 


t-{7} {2}. \ 


t_{7} {5}. \ 


SG Se 


\implies 91\\ 


aat7, 10}-=—] 1 \implies t-{7} = t2{10}*4{1) \implies. \\ 


t_{7}°{2} = (t-{10}°{1}) 
implies 19 

\implies 22\\ 

bayiy (3p —"Cte {LO} 1 }) 
implies 31 

\implies 34\\ 

bef 7} 4At = Cte{ lop {1 }) 
implies 43 

\implies 46\\ 

t_{7}°{5} = (t_{10}*{1}) 
implies 55 

\implies 58\\ 

t_{7}°{6} = (t-{10}°{1}) 
implies 67 

\implies 70\\ 

be Tp Chat LOp 1) 
implies 79 

\implies 82\\ 

Ae) Sao np 
implies 91 


\implies 94\\ 


Tey = 


a = 


{4} = 


Oy = 


aoe = 


ayy 


"1 8 = 


t 


t 


t 


t 


t 


t 


t 


of 10}? {2} 


_{10}° {3} 


_{10}* {4} 


-{10}° {5} 


me EUR ae ton, 


w{LOte 47} 


-{10}° {8} 


t_{10}*{2}. 


t_{10}*{3}. 


t_{10}*{4}. 


t_{10}*{5}. 


t_{10}* {6}. 


t_{10}*{7}. 


t_{10}*{8}. 
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bar Oe SC PaO LOL ten Oge 9) Ste PLOY a 
implies 103 

\implies 106\\ 

Gareth LOS Ct POR OETA TO ee: ap FTO FO tes 
{10}°{10}. \implies 115 

\implies 118\\ 

a_{8, 5} =1 \implies t_{8} = t_{5}°{1} \implies \\ 

t_{8}°{2} = (t-{5}°{1}) {2} = t_{5}°{2} = t_{5}° {2}. \ 
implies 20 \implies 

LRN 

t_{8} {3} = (t-{5}°{1}) {3} = t_{5}°{8} = t_{5}° {3}. \ 
implies 32 \implies 

29\\ 

tore) Aa) SS \tetoy ah tag babel ay a troy aay 
implies 44 \implies 

41\\ 

tn) Pop - = Ctedey tty) {5} Ss tapep toy = te fop oy. | 
implies 56 \implies 

53\\ 

Got y (Ot —Ghator Alp) (op “te oy ey = ted oy Tele 
implies 68 \implies 

65\\ 

beg eye = CRO a) i bebe Le = Gaya Penk 


implies 80 \implies 

77\\ 

bo{8P {8p = (bef{oy ql) 18} = 
implies 92 \implies 

89\\ 

Gap BP AIF = (tetoy yy 1a 
implies 104 

\implies 101\\ 

t_{8}"{10} = (+_-{8}"{1})*{10} = 
implies 116 


\implies 113\\ 


t_{5}° {8} 


t_{5}°{9} 


t-{5}° {8}. \ 


t-{5}°{9}. \ 
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£153 $10 F=f f5Y Lot. § 


a-{9, 3} = 3 \implies t_{9} = t_{3}°{3} \implies \\ 
t-{3}°{6} = t-{3} {6}. \ 


t_-{9}°{2} = (t-{3}°{3}) “{2} = 
implies 21 \implies 

63\\ 

t_{9}°{3} = (t-{3}°{3}) “{3} = 
implies 33 \implies 

99\\ 

nore Gar = 
implies 45 

\implies 3\\ 

t_{9}°{5} = (t-{3}°{3}) {5} = 


implies 57 


Gelsy A= be ae 


t_{3}°{12} 


t_{3}°{15} 


t_{3} {1}. \ 


t-{3} {4}. \ 
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\implies 39\\ 

t-{9} {6} = (t-{3}°{3}) {6} = t-{3}° {18} = t-{3}° {7}. \ 
implies 69 

\implies 75\\ 

t-{9} {7} = (t-{3}°{3}) {7} = t_{3}°{21} = t_{3}° {10}. \ 
implies 81 

\implies 111\\ 

t_{9}°{8} = (¢-{3}°{3}) {8} = t_{3}° {24} = t_{3}° {2}. \ 
implies 93 

\implies 15\\ 

t_-{9} {9} = (t-{3}°{3}) {9} = t_{3}° {27} 
implies 105 


t_{3} {5}. \ 


\implies 51\\ 

Gof9} 10} = (taf 3} 43}) {10} = taf3}F {80} = tef3F 18h. \ 
implies 117 

\implies 87\\ 

a_{10, 9} = 4 \implies t_{10} = t_{9}*{4} \implies \\ 

t_-{10}°{2} = (t_-{9}°{4}) “{2} = t_-{9}°{8} = t_-{9}°{8}. \ 
implies 22 

\implies 93\\ 

CA LOT (8p = (tee ta asp = tal OP ee Ste Oe be \ 
implies 34 


\implies 9\\ 
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teh a = tet oe Aap ao ea NO St OP Top ey 
implies 46 

\implies 57\\ 

t_{1O}*{5} = (t-{9}°{4}) {5} = t-{9}°{20} = t_-{9} {9}. \ 
implies 58 

\implies 105\\ 

t_{10}*{6} = (t-{9}7{4}) {6} = t-{9}7{24} = t_{9} {2}. \ 
implies 70 

\implies 21\\ 

be LOPE = Cted OP Aa Ae COP eB tet OP 16} \ 
implies 82 

\implies 69\\ 

t_{10}*{8} = (t-{9}7{4}) {8} = t-{9}°{32} = t_{9}> {10}. \ 
implies 94 

\implies 117\\ 

t-{10}°{9} = (t-{9}°{4}) “{9} = t-{9}°{86} = t_-{9} {3}. \ 
implies 106 

\implies 33\\ 

be LOE LOPS Cte Oy 4a) Op =. e195 AAO pS ta es. § 
implies 118 

\implies 81\\ 

a_{11, 11} = 4 \implies t_{11} = t_{11}°{4} \implies \\ 

t_{11}*{2} = (t_{11}*{4}) {2} = t_{11}-{8} = t {11} {8}. \ 


215 


implies 23 

\implies 95\\ 

beg LLP Sy = Cte ty {apo 13} 
\implies 35 


Pete = tee 


\implies 11\\ 

t_{11}° {4} = (t-{11}°{4}) {4} =  t_{11}°{16} = t_{11}*{5}. 
\implies 47 

\implies 59\\ 

t_{11}°{5} = (t_-{11}* {4}) * {5} 
\implies 59 


t_{11}7{20} = t_{11}7{9}. 


\implies 107\\ 

todd {6} = Ce { La {4p yO) Se bat 24} ee to 2. 
\implies 71 

\implies 23\\ 

beta = CE a ary 
\implies 83 


tf oe = ery: 


\implies 71\\ 
t_{11}°{8} = (t_{11}°{4})°{8} = b_{11}°{32} = t_{11}* {10}. 
\implies 95 
\implies 119\\ 
t-{11}°{9} = (t_{11}°{4}) *{9} 
\implies 107 


t_{11}*{36} = t_{11}7{3}. 


\implies 35\\ 
ro st a ai G8 aa va cane Oe a W090 


{11}°{7}. \implies 119 
\implies 83\\ 


\implies \\ 


a412. 12) 3 A implies’ a. 
b AMA Top = tales) 


implies 24 
\implies 72\\ 


t_{12}°{3} = (t-{12} °{3})° 


implies 36 
\implies 108\\ 


t_{12}°{4} = (t-{12}°{3})° 


\implies 48 


\implies 12\\ 


t_{12}°{5} = (t-{12}°{3})° 


\implies 60 

\implies 48\\ 

t_{12}°{6} = (t_{12}°{3}) 
\implies 72 

\implies 84\\ 

t_{12}°{7} = (t_{12}°{3}) 
\implies 84 


\implies 120\\ 


t_{12}°{8} = (t-{12} °{3})° 


\implies 96 


“{6} 


Beg 


t_{12}° 


t_{12}° 


t_{12}* 


t_{12}° 


poo 


t_{12}° 


{9} 


{12} 


{15} 


{18} 


{21} 


{24} 
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pay eh. 4 


eee eons an 


more ees 


t_{12}*f4}. 


maa kae 


t_{12}*{10}. 


t_{12}*{2}. 


217 


\implies 24\\ 


t_{12}°{9} = (t-{12}°{3}) {9} = t_{12}°{27} = t_{12} {5}. 
\implies 108 


\implies 60\\ 

6 412) POL = CA 8) oS He 0 Se 
{12}*{8}. \implies 120 

\implies 96\\ 


xxx:=S!arrX; 
Kon 
ble" 40). Be. O18 5. 225 215. Os 245) (4. B25 29, 2b 26) (6:5 
SLs. Oe. Oy DF VC Ls. 273 
59. 107, 35) (12, 36, 108; 60, 48) (13, 14, 885. 20, 17) 
(PSG. 905-0. 
93)(16, 68, 65, 61, 62)(18, 67, 70, 21, 63)(23, 95, 
119: BB TAOS TO 8As 
120, 96)(28, 104, 101, 97, 98)(30, 103, 106, 33, 99) 
(37, 38, 52, 44, 41)(39, 
54, 43, 46, 57)(49, 50, 100, 56, 53)(51, 102, 55, 58, 
105) (64, 80, 77, 73, 
74)(66, 79, 82, 69, 75)(76, 116, 113, 109, 110)(78, 
115, 118, 81, 111)(85, 


86, 112, 92, 89)(87, 114, 91, 94, 117) #/ 
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for beg ir) ) [fla 12]; do 
if B[i][j] ne 0 then 
ha)” Cad Sprint (1) cat ? "> eat Sprint (7) 
cat Oe? ea Spring Bla) [ai ead Py 
implies ” cat *t.{” cat Sprint(i) cat ”} 
\\implies t_{” cat Sprint(j) cat ”}*” 
cat Sprint (B[i][j]); 
end if; 

end for; 

/*b_{1,3} = 1 \implies t_{1} \implies t_{3}*1 

b_{2,5} = 5 \implies t_{2} \implies t_{5}75 

b_{3,7} = 3 \implies t_{3} \implies t_{7}°3 

b_{4,9} = 3 \implies t_{4} \implies t_{9}°3 

b_{5,8} = 1 \implies t_{5} \implies t_{8}*1 

b_{6,4} = 1 \implies t_{6} \implies t_{4}71 

b_{7,1} = 4 \implies t_{7} \implies t_{1}*4 

b_{8,2} = 9 \implies t_{8} \implies t_{2}°9 

b_{9,6} = 4 \implies t_{9} \implies t_{6}*4 

b_{10,11} = 1 \implies t_{10} \implies t_{11}*1 

b_{11,12} = 1 \implies t_{11} \implies t_{12}*1 

b_{12,10} = 1 \implies t_{12} \implies t_{10}*1x/ 


/* Same as above but we use b_ instead of a. */ 
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FindLabels:=procedure(row, powl, col, pow2, arr) 


/* Process labels to create an array that will be 
turned to a permutation */ 
labell:= Position(labeling , [row, powl mod 11]); 


label2:= Position(labeling , [col , pow2*powl mod 


11]); 
arr[labell]:= label2; 
srow := Sprint(row); /*x turn to a string */ 
scol := Sprint(col); 
spowl := Sprint (powl) ; 
spow2 := Sprint (pow2) ; 


labell:= Sprint(labell); 
label2:= Sprint (label2); 


if powl eq 1 then 


/* b_{1,2} = 3 t_1 = t_2°3 «/ 
*b{” cat stow udat-", % eat scol--cat-7} = cat spow2 
cat" \\implies ” -eat. "te{” cab -sréw eat") =i ts 


{” cat scol cat ”}*{” cat spow2 cat ”} \\implies 


ee 5 
end if; 


(bl aS (BA ae 


if powl gt 1 then 
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his cat. Srow cab OF 4 cat. spow ll cat 77] eat 


"(t.d? eat <scol ear "4 ak spow2cat ?p) £” 


cat spowl cat a = ” cat an ae cat 


"}*{” cat Sprint (powlxpow2) cat ”} =” cat 


ae ae 


{” cat  scol cat ”}*°{” cat Sprint (powl*xpow2 mod 


11) cat ”}. \\implies ” cat labell cat ” \\ 


implies ” cat label2 cat ”\\\\”; 


end if; 


end procedure; 


arrY:=[0r i im [1..120)]; 
/* x for row in the matrix.«/ 
for t- an ° |. P31°2.)) ado 
/* c for column in the matrix. */ 
tor .c: in: [T2712 ])-do 
if Bir, c] ne 0 then 


for p in [1..10] do 


value:= StringTolInteger(Sprint(B[r, c]), 12); 


FindLabels(r, p, c, value, “arrY); 
end for; 


end if; 


fe 


b_{1, 3} =1 \implies t-_ 
bof 2h = (betsy tly) 


implies 13 \implies 


15\\ 


t_{1}°{3} = (t-{3}°{1})° 


implies 25 \implies 


270% 


batty ay = (tates q1y)° 


implies 37 \implies 


39\\ 


CAL Asy Stel sy tly) 


implies 49 \implies 


51\\ 


tet 1 Ope = Chad oy LE)" 


implies 61 \implies 


63\\ 


bath iy = tet LE) 


implies 73 \implies 


75\\ 


t_{1}°{8} = (t-{3}°{1})° 


{1} = t-{3}°{1} \implies \\ 


{b= + 
{3} = ¢ 
{4p = + 
{5} = ¢ 
{6} = ¢ 
{7} = t 
{8} = ¢ 


{3} {2} 


{3} {3} 


{3} °{4} 


-{3}°{5} 


-{3}°{6} 


{3} °{7} 


-{3}°{8} 


(rate 


ele 


t_{3}° 


f 13a 


eee 


t_{3}° 


eS 


{2}. 


{3}. 


{4}. 


221 


222 


implies 85 \implies 

87\\ 

t_{1}°{9} = (t_-{3}°{1}) {9} = t_-{3} {9} = t_{3}° {9}. \ 
implies 97 \implies 

99\\ 

t_{1}°{10} = (t_{3}°{1})°{10} = t_{3}°{10} = t_{3}* {10}. \ 
implies 109 

\implies 111)\\ 

b.{2, 5} =5 \implies t_{2} = t_{5}*{5} \implies \\ 

t_-{2}°{2} = (t_-{5}°{5}) {2} = t_{5}°{10} = t_{5}° {10}. \ 
implies 14 

\implies 113)\\ 

t_{2}°{3} = (t_{5}°{5}) {3} = t_{5}° {15} = t_{5}° {4}. \ 
implies 26 

\implies 41\\ 

t_-{2}°{4} = (t_{5}°{5}) {4} = t_{5}° {20} = t_{5}° {9}. \ 
implies 38 

\implies 101\\ 

t_-{2}°{5} = (t_-{5}°{5}) {5} = t_{5}° {25} = t_{5}° {3}. \ 
implies 50 

\implies 29\\ 

t_{2}°{6} = (t_{5}°{5}) {6} = t_{5}° {30} = t_{5}° {8}. \ 


implies 62 
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\implies 89\\ 

t-{2}°{7} = (t-{5}°{5}) {7} = t-{5}° {35} = t-{5} {2}. \ 
implies 74 

\implies 17\\ 

t_-{2}°{8} = (t-{5}°{5}) {8} = t-{5}° {40} = t_{5} {7}. \ 


implies 86 


\implies 77\\ 

t_{2}°{9} = (t-{5}°{5}) {9} = t_-{5}° {45} = t_{5}° {1}. \ 
implies 98 

\implies 5\\ 

be {Op = (toy {spy A lOy = tefop a0} Sto 75 "4.6 pa) 
implies 110 

\implies 65\\ 

b.{35. 7) = 3 \implies ¢-{3} = t_{7}°{3} \implies \\ 

t_{3}°{2} = (t-{7}°{3}) {2} = t-{7}°{6} = t-{7}° {6}. \ 
implies 15 \implies 

67\\ 

betsy AST = Ct Sy) sk = ET oy Ste a 
implies 27 \implies 

103\\ 

Cosh Aa See OE) tage BoC ey SS tery ae | 
implies 39 


\implies 7\\ 
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t_{3}°{5} = (t_{7}°{3}) {5} = t_{7}° {15} = t_{7}° {4}. \ 
implies 51 

\implies 43\\ 

t_{3}°{6} = (t_{7}°{3}) {6} = t_{7}° {18} = t_{7}°{7}. \ 
implies 63 

\implies 79\\ 

t_{3}°{7} = (t_-{7}°{3}) {7} = t_{7}°{21} 


implies 75 


bok. 


\implies 115\\ 

te{ ap {8} = (tal Tesh) 18} = tatty 24} = tet (Zhe 
implies 87 

\implies 19\\ 

Gu {ap {Oh = (tet 7p {sky qo} = ted TP Lath at {7} {5}. | 


implies 99 


\implies 55\\ 

fafa qLOp =e TP sp) Oy = tatty a sO0ps= tet eho | 
implies 111 

\implies 91\\ 

b_{4, 9} = 3 \implies t_{4} = t_{9}°{3} \implies \\ 

tla 2 Ste Ah) Lee MAO ey Ste O PO pe 
implies 16 \implies 

69\\ 

bof{4} {3} = (taf OP {3}) {3} = toe {oO} = t-{9} {9} \ 
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implies 28 \implies 


105\\ 
t_{4} {4} = (t.{9} {3} {4} = t{9}°412} = t_ {oC}. 
implies 40 


\implies 9\\ 

t_{4}°{5} = (¢_{9}°{3}) {5} = t_{9}° {15} = t_{9} {4}. \ 
implies 52 

\implies 45\\ 

t_{4} {6} = (¢-{9}°{3}) {6} = t_{9}° {18} = t_{9} {7}. \ 


implies 64 


\implies 81\\ 

bafAp {TS Ct OP {sky At = tet Lely SS e910} 
implies 76 

\implies 117\\ 

ta (Sy = Cea eh eS ote oT 24} 


implies 88 


t-{9} {2}. \ 


\implies 21\\ 

t_{4} {9} = (t-{9}°{3}) {9} = t_{9}°{27} = t_{9}7 {5}. \ 
implies 100 

\implies 57\\ 

t_{4}°{10} = (t_{9}°{3}) {10} = t_{9}7{30} = t.{9}°{8}. \ 
implies 112 


\implies 93\\ 


bef 55 8) = 1 \amplies +45) = 6.8} ° 41} \imphes 


t_{5}°{2} = (t-{8}°{1})° 


implies 17 \implies 

20\\ 

t_{5}°{3} = (t-{8}°{1}) 
implies 29 \implies 

32\\ 

tapoy (ap = (beep Ae) 
implies 41 \implies 

44\\ 

t_-{5}°{5} = (t-{8}°{1}) 
implies 53 \implies 

56\\ 

batoy Oe — tee aly) 
implies 65 \implies 

68\\ 

t_{5} {7} = (t-{8}°{1}) 
implies 77 \implies 

80\\ 

t_{5}°{8} = (t-{8}°{1}) 
implies 89 \implies 

92\\ 

t_-{5}°{9} = (t-{8}°{1}) 
implies 101 


(= 


“q3) = 


ees 


qa) = 


Ouse 


AES 


8} = 


eo] = 


t_{8}" 


{2} 


“{6} 


Bee: 


“{8} 


“{9} 


t_{8}° 


AES: 


AEST. 
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\implies 104\\ 

t_{5}°{10} = (t_{8}°{1}) “{10} = 
implies 113 

\implies 116\\ 
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t_{8}*{10} = t_{8}*{10}. \ 


b_{6, 4} = 1 \implies t_{6} = t_{4}*{1} \implies \\ 


t_{6}7{2} = (t-{4}°{1}) {2} = 
implies 18 \implies 

16\\ 

t_{6}°{3} = (t-{4}°{1}) “{3} = 
implies 30 \implies 

28\\ 

t_{6}"{4} = (t-{4}°{1}) {4} = 
implies 42 \implies 

40\\ 

t_{6}°{5} = (t-{4}°{1}) {5} = 
implies 54 \implies 

52\\ 

bVOy {6} = Ct a tly yeh = 
implies 66 \implies 

64\\ 

ery Sear ae 
implies 78 \implies 


76\\ 


t 


t 


t 


t 


t 


t 


{43° {24 


ar ts} 


-{4}°{4} 


-{4}°{5} 


Ler Oy 


AA Ey 


= t_{4}*{2}. 


= t_{4}*{3}. 


= tofarr {ay 


SAA PTEY, 


= t_{4}* {6}. 


= t_{A4} {7}. 


be, OP 18 = beep dy) aS 
implies 90 \implies 

88\\ 

t_{6}°{9} = (t-{4}°{1}) {9} = 
implies 102 

\implies 100\\ 

t_{6}°{10} = (t_{4}°{1}) *{10} = 
implies 114 


\implies 112\\ 


t 


t 


{4} °{8} 


{4} {94 


t-{4}°{8}. \ 


Caf 4ay Lope *\ 
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t_{4}*{10} = t_{4}7{10}. \ 


b_{7, 1} = 4 \implies t_{7} = t_{1}°{4} \implies \\ 
Gof L PSF Stet st. \ 


batty {2} = (ttl yp {4}) {2} = 


implies 19 \implies 


85\\ 
CATT 8} SCT Ask) 138s = 
implies 31 


\implies 1\\ 

t_{7}°{4} = (t-{1}°{4}) {4} = 
implies 43 

\implies 49\\ 

t_-{7}°{5} = (t-{1}*{4}) {5} = 
implies 55 

\implies 97\\ 

t_{7}°{6} = (t-{1}*{4}) {6} = 


t 


t 


t 


t 


-{1}° {12} 


{1} ° {16} 


“f1°720} 


{1} ° {24} 


tet Adis. 5 


tag toys 


t_{1} {9}. \ 


t_{1} {2}. \ 
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implies 67 
\implies 13\\ 
tatT p(T} = (taf lp fap ort = taf 1p {28} 


implies 79 


tat rose 


\implies 61\\ 

t_{7}°{8} = (t_{1}°{4}) {8} = t_{1}° {32} = t_{1} 7° {10}. \ 
implies 91 

\implies 109\\ 

t_{7}°{9} = (t-{1}°{4}) {9} =  t_{1}° {36} = t_{1}° {3}. \ 
implies 103 


\implies 25\\ 

batt} {LOF = Chat 4 yp) Alo) Se bat 440} Set 
implies 115 

\implies 73\\ 

b.{8, 2) = 9 \imiplies. +18} = t.f{2}°{9} \inmiplies’ \\ 

t_{8}°{2} = (t-{2}°{9}) {2} = t_-{2}°{18} = t_{2}°{7}. \ 
implies 20 

\implies 74\\ 

t_{8}°{3} = (t-{2}°{9}) *{3} = t_-{2}°{27} = t_{2}°{5}. \ 
implies 32 

\implies 50\\ 

ao 8 et ee 7-2 Oa i 2a 07-2 00 ee 8 


implies 44 


\implies 26\\ 

t-{8}°{5} = (t-{2}°{9}) {5} = +t 
implies 56 

\implies 2\\ 

t_{8}°{6} = (t_-{2}°{9}) {6} = +t 
implies 68 

\implies 110\\ 

t_{8}°{7} = (t_{2}°{9}) {7} = +t 
implies 80 

\implies 86\\ 

t_{8}°{8} = (t-{2}°{9}) {8} = +t 
implies 92 

\implies 62\\ 

t_{8}°{9} = (t-{2}°{9}) {9} = +t 
implies 104 

\implies 38\\ 

t_{8}° {10} = (t_{2}°{9}) *{10} = 
implies 116 

\implies 14\\ 


-{2}° {45} 


{2} ° {54} 


_{2}° {63} 


21h ot ey 


{24° {81} 


t-{2}° {90} 
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t-{2} {1}. \ 


BOAO Y 


t-{2} {8}. \ 


t_{2} {6}. \ 


t_{2} {4}. \ 


= t.{2}°{2}. \ 


b_{9, 6} = 4 \implies t_{9} = t_{6}°{4} \implies \\ 
tot OP Ae SCR Oy a keg SS SOL Sy Sot hey a8 yas 


implies 21 \implies 


90\\ 


t_{9}°{3} = (t_-{6}°{4}) *{3} = 
implies 33 

\implies 6\\ 

t_{9}°{4} = (t_{6}°{4}) “{4} = 
implies 45 

\implies 54\\ 

t_{9} {5} = (t_-{6}°{4}) *{5} = 
implies 57 

\implies 102\\ 

t_{9} {6} = (t_-{6}*{4}) “{6} = 
implies 69 

\implies 18\\ 

t-{9}°{7} = (t-{6}°{4}) {7} = 
implies 81 

\implies 66\\ 

t_{9} {8} = (t-{6}°{4}) “{8} = 
implies 93 

\implies 114\\ 

t_{9}°{9} = (t-{6}°{4}) {9} = 
implies 105 

\implies 30\\ 

t_{9}° {10} = (t_{6}*{4}) “{10} = 
implies 117 

\implies 78\\ 


- {6} ° {12} 


- {6} ° {16} 


_ {6} {20} 


- {6} ° {24} 


_{6}*{28} 


_{6}° {32} 


_{6}*{36} 


t_{6}° {40} 
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tt Or Le 


t-{6} {5}. \ 


t_{6} {9}. \ 


t-{6} {2}. \ 


t-{6} {6}. \ 


t_{6}"{10}. \ 


t-{6} {3}. \ 


= t-{6}°{7}. \ 


bet Loy 11} Sh Armp lies. -t- 
(ted Lp Cy) 


t_{10}*{2} 


implies 22 


\implies 23\\ 
t_{10}°{3} = (t_{11}° 
implies 34 
\implies 35\\ 
t_{10}*{4} = (t_{11}° 
implies 46 
\implies 47\\ 
t_{10}°{5} = (t_{11}° 
implies 58 
\implies 59\\ 
t-{10}°{6} = (t-{11}° 
implies 70 
\implies 71\\ 
t_{10}°{7} = (t-{11}° 
implies 82 
\implies 83\\ 
t_{10}°{8} = (t_{11}° 
implies 94 
\implies 95\\ 
t_{10}*{9} = (t_{11}° 


{1}) 


{1}) 


{1}) 


{1}) 


{1}) 


{1}) 


{1}) 


(10) = 4411y 
(ies ey 
“{3} = t_{11}° 
“{4} = t_{11}° 
“{5} = t_{11}° 
“{6} = t_{11}° 
{7} = t_{11}° 
{8} = t_{11}° 
{9} = t_{11}° 


{1} \implies 
Dy mee ees 
{3} = t_{11}* 
{4} = t_{11}° 
{5} = t_{11}* 
{6} = t_{11}* 
(7+ fii} 
{8} = t_{11}* 
{9} = t-{11}° 


\\ 


{2}. 


{4}. 


{5}. 
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implies 106 

\implies 107\\ 

TO Pie eh = a io Ste 
{11}*{10}. \implies 118 

\implies 119\\ 

b_{11, 12} = 1 \implies t_{11} = t_{12}*{1} \implies \\ 

t_{11}°{2} = (t_{12}°{1})*{2} = t_{12}-{2} = t_{12}°{2}. \ 
implies 23 

\implies 24\\ 

t_{11}°{3} = (t_{12}°{1}) *{3} 


implies 35 


b{12} 48} = tI 2} 43}. 


\implies 36\\ 

t_{11}°{4} = (t-{12}°{1}) {4} = t_{12}7{4} = 6. {12}7(4}. \ 
implies 47 

\implies 48\\ 

t_{11}°{5} = (t-{12}°{1}) °{5} 


implies 59 


Pas St ae 


\implies 60\\ 

t_{11}°{6} = (t-{12}°{1}) {6} = t_{12}°{6} = t_{12}°{6}. \ 
implies 71 

\implies 72\\ 

be a Cee he = tet etl oe be N 


implies 83 


\implies 84\\ 

t_-{11}°{8} = (t_{12}*{1})*{8} = t_{12}°{8} = t_{12} 
implies 95 

\implies 96\\ 

t_{11}°{9} = (t_{12}°{1})*{9} = t_{12}°{9} = t_ {12} 
implies 107 

\implies 108\\ 

pot = et a = Ee 10 Se 
{12}*{10}. \implies 119 

\implies 120\\ 


bif{i2> 10} = 2 \implves- 72412) = tof} 41} Vimplies 


t-{12}°{2} = (t-{10}°{1}) {2} = t_{10}*{2} = t-{10}° 


implies 24 


\implies 22\\ 


t_{12}°{3} = (t-{10}°{1}) {3} = t_{10}°{3} = t_{10}° 


implies 36 
\implies 34\\ 


bet dep ap = Cet Op yay = bat id= tet Oy 


implies 48 
\implies 46\\ 


t_{12}°{5} = (t_{10}°{1})*{5} = t_{10}*{5} = t_{10}° 


implies 60 
\implies 58)\\ 
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{8}. \ 


{9}. \ 


t_{12}°{6} = (t-{10}*{1}) *{6} 
implies 72 
\implies 70\\ 


235 


ESOT He SE ONE ws. % 


bof eS (eed LO} Ee = | het lO eS tet DOP LT be 


implies 84 
\implies 82\\ 
t_{12}°{8} = (t-{10}°{1}) {8} 


implies 96 


\implies 94\\ 


t_{10}*{8} = t_{10}*{8}. \ 


be{ lap {ay = (esto Ty) roy = bat OP 9} = tap 1Oy otk) 


implies 108 
\implies 106\\ 


ESP HO) = (e101) OS. 427 10)f 10 St. 


{10}°{10}. \implies 120 


\implies 118\\x/ 


S:=Sym(120) ; 


yyy:=S!arryY; 


yyy; /* (1, 3, 31)(2, 58, 56)(4, 33, 6)(5, 8, 


39)(9, 42, 40)(10, 11, 12) (13, 


15, 67)(14, 113, 116)(16, 69, 18)(17, 20, 
87) (21, 90, 88) (22, 

23. DA) (95, 27 103) (26> Al, 44) 8. 105, 
50) (34, 35, 36)(38, 


98)(7, 37, 
74) (19, 85, 
30) (295. B24 
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101, 104)(43, 49, 51)(45, 54, 52)(46, 47, 48)(55, 97, 
99)(57, 102, 100)(58, 

59, 60)(61, 63, 79)(62, 89, 92)(64, 81, 66)(65, 68, 
110).( 70%, 715 “72).C78s.< 75; 

115)(76, 117, 78)(77, 80, 86)(82, 83, 84)(91, 109, 111) 
(93, 114, 112) (94, 


95, 96)(106, 107, 108)(118, 119, 120) x/ 


N:=sub<S| xxx, yyy>; 
HN; 


s:=IsIsomorphic (N,G) ; 


Siuje tric -#/ 


FPGroup (N) ; 
ic: x°5, y°3, y * x°2 * y°-l * x°2 * y * x°-l * y-l x 
x°-l, (See ae: BE ay a SD oe 
NN, 3 SS Group<x, se oe 8. eae ea ee KO? & 
y * x°-l * y°-l * x*-l, (ee ise See. ae a) 
#NN; /* 660 x*/ 


fn ,N1,kn:=CosetAction (NN, sub<NN| Id(NN)>); 
s:=IsIsomorphic(N1, N); 


s; /* true */ 
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Sch:=SchreierSystem (NN, sub<NN| Id (NN) >); 
word:= function (Perm) 
for w in Sch do 

seq := Eltseq(w); 

p= 1d Nh: 

for j in seq do 

if j eq 1 then p:=p*xxx; end if; 

if j eq —1 then p:=px*xxxx*—1; end if; 
if j eq 2 then p:=pxyyy; end if; 
if j eq —2 then p:=pxyyy°—1; end if; 

end for; 

if Perm eq p then return w; end if; 
end for; 


end function; 


GetConjugationWordForSubscript:= function(subscript ) 
size :=99999999; 
w:=word(Id(N)); 
for n in N do 
if n eq Id(N) then 
continue; 
end if; 


if 1°n eq subscript then 
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tmp:= word(n) ; 

if size gt #tmp then 
Ssize:=#tmp; 
w:= tmp; 


end if; 


end if; 
end for; 
return w; 


end function; 


Orbits(Stabilizer(N,1)); 
/x GSet{@ 1 @}, 
GSet{@ 13 @}, 
GSet{@ 25 @}, 
GSet{@ 37 @}, 
GSet{@ 49 @}, 
GSet{@ 61 @}, 
GSet{@ 73 @}, 
GSet{@ 85 @}, 
GSet{@ 97 @}, 
GSet{@ 109 @}, 
GSet{@ 2, 104, 107, 58, 7, 102, 12, 28, 5, 57, 39 @}, 
GSet{@ 3, 26, 56, 59, 46, 31, 54, 36, 100, 29, 45 @}, 
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GSet{@ 4, 41, 105, 51, 38, 32, 35, 106, 43, 30, 48 @}, 

GSet{@ 6, 60, 40, 53, 33, 99, 50, 8, 11, 34, 55 @}, 

GSet{@ 9, 27, 98, 44, 47, 10, 103, 42, 108, 52, 101 @}, 

GSet{@ 14, 80, 83, 118, 19, 78, 24, 64, 17, 117, 87 @}, 

GSet{@ 15, 62, 116, 119, 94, 67, 114, 72, 76, 65, 93 @ 
ie 

GSet{@ 16, 89, 81, 111, 86, 68, 71, 82, 91, 66, 96 @}, 

GSeti@ 18, 105 B8y 113569} 750 110, 20,23, 70y. 115 @ 
iz 

GSet{@ 21, 63, 74, 92, 95, 22, 79, 90, 84, 112, 77 @} 
«/ 


/* To test progenitor (t1,t2) , (tl, t3), (t1,t4), (tl, t6) 
» AEE 2 EO ef 


Stabilizer(N, {1,13,25,37,49 ,61,73,85,97,109}) ; 
gen:=Generators( Stabilizer (N, 
£451895,,57 49:61 773 85.97 409))): 


gl:=N!(2, 57, 28, 102, 58, 104, 39, 5, 12, 7, 107)(3, 29, 
863 Bly 595.265 ASS 1005 
54, 46, 56)(4, 30, 106, 32, 51, 41, 48, 43, 35, 38, 
105) (6, 34, 8, 99, 
53, 60, 55, 11, 50, 33, 40)(9, 52, 42, 10, 44, 27, 
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101, 108, 103, 47, 

ORCAY AIG GA 78s ATS ROB Th, 94, 19. BS) 
(15, 65, 72, 67, 119, 

62, 93, 76, 114, 94, 116)(16, 66, 82, 68, 111, 89, 
96, 91, 71, 86, 

81)(18, 70, 20, 75, 113, 120, 115, 23, 110, 69, 88) 
C21 11s Oa Ws 0s 

63, 77, 84, 79, 95, 74); 


e2:= N!I(1, 97, 37, 25, 49)(2, 8, 36, 105, 47)(3, 4, 10, 
102, 55)(5, 53, 29, 41, 

101)(6, 31, 51, 52, 58)(7, 99, 100, 106, 42) (9, 
107, 50, 56, 48)(11, 26, 

32: 108% 57) (125885 595. 88-44) (195-73 B55 61, 
109 (1Ay-. 20, 72) 81s 

95)(15, 16, 22, 78, 115)(17, 113, 65, 89, 77)(18, 
6ty Wily 112; 118) (9; 

75, 76, 82, 90)(21, 83, 110, 116, 96)(23, 62, 68, 
Ga AIT (2h, 60% 1095 

86, 92)(27, 28, 34, 54, 43)(30, 103, 39, 40, 46) 
(35, 98, 104, 60, 

45)(63, 64, 70, 114, 91)(66, 79, 87, 88, 94)(71, 
74, 80, 120, 93); 
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found:= false; 
for a, b in gen do 


if a ne b and a ne Id(N) and b ne Id(N) and found eq false 


then 
Gen:=sub<N| a, b>; 
if Gen eq sub<N|gl, g2> then 
found := true; 
break ; 
end if; 
end if; 
end for; 


/* These results changed from the last try, but they still 
work. x/ 

word(gl); /x gl ~ x°-2 * y°-l * x ==> (t , x°-2 * y°-1 * 
x) */ 


1* (xxx*-2«yyy*—I*xxx); /* 1 */ 


word (g2)sf% @2 ~ % « y°-l a x & y # x? 25 + / 
1*(xxx*yyy°—l*xxx*yyy*xxx*2);  /* 49 => t1°( x * y°-l * x 


ap ee Ds TADS Def 


IsIsomorphic(Gen, sub<N| xxx*°—2*xyyy*—1l*xxx, xxx*yyy°—1*xxx 


*yyy*xxx°2 >); /* true */ 
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i= To test: progenitor (tl 442): 4. (thy t3)5 (tl ty Cob, 46) 
6 My iO) ey 

GetConjugationWordForSubscript (2); /* (t, t°x ) */ 

GetConjugationWordForSubscript (3); /* (t, t°y */ 

GetConjugationWordForSubscript (4); /* (t, t°(y°-l * x*-1 * 
vy 

GetConjugationWordForSubscript (6); /* (t, t°(y°-l * x*-1)) 
=) 

GetConjugationWordForSubscript (9); /* (t, t°(x°2 * y)) x/ 


[OCC CCCI CCCI CCCI CCCI CCCI GIGI ICICI I I I Ck 4k 2k 


S:=Sym(120) ; 


yy:=S!(1, 3, 31)(2, 53, 56)(4, 33, 6)(5, 8, 98)(7, 37, 39) 
(0). 42 A010 1. AOC 


15, 67)(14, 113, 116)(16, 69, 18)(17, 20, 74)(19, 85, 
87) (21, 90, 88) (22 
23 DAV (25% 275. 108)(26 » 414 44)-(285 105, 30) (29. 3, 


50) (34, 35, 36)(38, 

101, 104)(43, 49, 51)(45, 54, 52)(46, 47, 48)(55, 97, 
99)(57, 102, 100)(58, 

59, 60)(61, 63, 79)(62, 89, 92)(64, 81, 66)(65, 68, 
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110)(70, 71, 72)(73, 75, 

115)(76, 117, 78)(77, 80, 86)(82, 83, 84)(91, 109, 111) 
(93,114). 112) (94, 

95, 96)(106, 107, 108)(118, 119, 120); 


xx:=S!(1, 2, 40, 8, 5)(3, 42, 7, 10, 45)(4, 32, 29, 25, 26) 

(6:0 Bly (Be, “O,. 27) ty 47, 

59; 107,. 35) (12, 36, 108). 60, 48) (13, 14, 88, 20, 17) 
(154, 80,19, 22. 

93)(16, 68, 65, 61, 62)(18, 67, 70, 21, 63)(23, 95, 
119, 83; 71) (24, 72, 84, 

120, 96)(28, 104, 101, 97, 98)(30, 103, 106, 33, 99) 
(37, 38, 52, 44, 41)(39, 

54, 43, 46, 57)(49, 50, 100, 56, 53)(51, 102, 55, 58, 
105) (64, 80, 77, 73, 

74)(66, 79, 82, 69, 75)(76, 116, 113, 109, 110)(78, 
115 1485-81, 191) (854 

86, 112, 92, 89)(87, 114, 91, 94, 117); 


N:=sub<S|xx, yy>; 
Gex vy (6 >=Group< x, yy bs | RSs Sy ye RZ Sl ee KD 
* y * x°-l * y°-l * x*-1, ae ee ae ae ae os, ae oe 
*( 


“MA (Og ORD ey HD ey 4 Ki ee Op ae yD) 
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ST Big CB gy WSS Ge (ee iw ties Sk eas Seas ae 


Gy al ae SD Ate. i (Se De ae a) pes 8 


print Index(G,sub<G|x,y>: CosetLimit:=9°10, Hard:=true , 


Printz=9)\3 


/* nohup magma ” Mon11_12Index”&>Mon11_12Index.out& «/ 


PT RE Sea Oe eo HE A ee Se Be a a Ooh ae Se ole a ech eH ee HE ee a hee HR ake 


C:= Classes (N) ; 
Sr 


/* PRINT SINGLE ORDER RELATIONS x / 
for i in [2..4#C] do 
"GK NEW CLASS RR ad? 5 
OC:= Orbits (Centraliser(N,C[i][3])); 
for orbit in OC do 
conjWord:= ””; 
classRepWord:= Sprint (word(C[i][3])); 
if orbit[1] eq 1 then 


classRepWord cat ”xt”; 
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conjWord:= Sprint (GetConjugationWordForSubscript ( 
orbit [1]) ); 


classRepWord cat ”*t*(” cat  conjWord cat ”)”; 


ok KK KK KKK NEW CLASS «kk RRR KK KK KKK 


y *« x°-l * y°-l * x°-2 * y * xxt 
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y * x°-l *« y°-l * x°-2 * y * x«xt*(Id(NN)) 


ok KKK KK KKK NEW CLASS «kkk RRR KK KK KKK 


yxt 
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ok RK KKK KKK NEW CLASS «kk RRR KK KK KKK 


248 


249 


x*t°(x°-1 * y°-1 * x) 
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ok KKK KK KKK NEW CLASS «kk RRR KK KK KKK 


x 2Qx*t 


251 


252 


ok KKK KK KKK NEW CLASS «kkk RRR KKK KK KKK 


x°2 * y * x°-l * y * x°-—Ixt 
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x°2 * y * x*-l * y * x*—l*t*(Id(NN)) 


ok RK KKK KKK NEW CLASS «kkk KKK KKK KKK 
x * yxt°(x*-l * y) 


254 


255 


(oe B52 xe De. ye) 
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(x * y)°2*et*(y°-1 * x°-2 * y°-1) 


[OCC CCC CCCI ICCC CCCI CCCI ICICI ICICI ICICI ICI I I I A 1k 4 3k 


StrN:=”"S:=Sym(120) ; 
xx:=S!(1, 2, 40, 8, 5)(3, 42, 7, 10, 45)(4, 32, 29, 25, 26) 
(Gi. Bi Bae Oe STi. wer, 
59, 107, 35)(12, 36, 108, 60, 48)(13, 14, 88, 20, 17) 
(15, 90, 19, 22, 
93)(16, 68, 65, 61, 62)(18, 67, 70, 21, 63)(23, 95, 
119, 83, 71)(24, 72, 84, 
120, 96)(28, 104, 101, 97, 98)(30, 103, 106, 33, 99) 
(37, 38, 52, 44, 41)(39, 
54, 43, 46, 57)(49, 50, 100, 56, 53)(51, 102, 55, 58, 
105) (64, 80, 77, 73, 
74)(66, 79, 82, 69, 75)(76, 116, 113, 109, 110)(78, 
115, 118, 81, 111)(85, 
86, 112, 92, 89)(87, 114, 91, 94, 117); 


yy:=S!(1, 3, 31)(2, 53, 56)(4, 33, 6)(5, 8, 98)(7, 37, 39) 
(9, 42, 40)(10, 11, 12)(13, 
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15, 67) (14 , 116)(16, 69, 18)(17, 20, 74)(19, 85, 
87) (21, 90, 88)(22 
23, 94).(26, 27, 103).(26, 41, 44)(28, 105, 30)(29; 32, 


50) (34, 35, 36)(38, 

101, 104)(43, 49, 51)(45, 54, 52)(46, 47, 48)(55, 97, 
99)(57, 102, 100)(58, 

59, 60)(61, 63, 79)(62, 89, 92)(64, 81, 66)(65, 68, 
110)(70, 71, 72)(73, 75, 

115) (76, 117, 78)(77, 80, 86)(82, 83, 84)(91, 109, 111) 
(93, 114, 112) (94, 

95, 96)(106, 107, 108)(118, 119, 120); 


N:=sub<S8| xx ,yy >3”5 


StrN ; 


S:=Sym(120) ; 
xx:=S!(1, 2, 40, 8, 5)(3, 42, 7, 10, 45)(4, 32, 29, 25, 26) 
(65-81 9.34, Oy BR) (id, 47, 
59, 107, 35)(12, 36, 108, 60, 48)(13, 14, 88, 20, 17) 
(15, 90, 19, 22, 
93)(16, 68, 65, 61, 62)(18, 67, 70, 21, 63)(23, 95, 
119, 83, 71)(24, 72, 84, 
120, 96)(28, 104, 101, 97, 98)(30, 103, 106, 33, 99) 
(37, 38, 52, 44, 41)(39, 
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54, 43, 46, 57)(49, 50, 100, 56, 53)(51, 102, 55, 58, 
105) (64, 80, 77, 73, 

74)(66, 79, 82, 69, 75)(76, 116, 113, 109, 110)(78, 
HS 218s Bt, 111 )(85., 

86, 112, 92, 89)(87, 114, 91, 94, 117); 


yy:=S!S!(1, 3, 31)(2, 53, 56)(4, 33, 6)(5, 8, 98)(7, 37, 
39)(9, 42, 40)(10, 11, 12) (13, 


15, 67)(14, 113, 116)(16, 69, 18)(17, 20, 74)(19, 85, 
87) (21, 90, 88) (22 
23, 94)(25 27).103)(26, 41, 44) (28) 105, 30)(29,,. 32, 


50) (34, 35, 36)(38, 

101, 104)(43, 49, 51)(45, 54, 52)(46, 47, 48)(55, 97, 
99)(57, 102, 100)(58, 

59, 60)(61, 63, 79)(62, 89, 92)(64, 81, 66)(65, 68, 
LOVE 704 Fs POVCTS. TBs 

115) 076%. 107: FBLC 77s 805-86) (82 «83 284915 -109y, 111) 
(93, 114, 112) (94, 

95, 96)(106, 107, 108)(118, 119, 120); 


N:=sub<S| xx ,yy>; 


Indices:=[]; 


first:=true; 
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TOT Bg. (Dye tie he ee Py Se ae Os TO], do 

if a eq 0 and b eq O and c eq O and d eq O and e eq O and 
f eq 0 and g eq O then 

continue; 

end if; 

Géx y,t>=—Group<x; yy, t | "Sy (¥°S, ye x°2 * yool # x2 
eye ley Sb Re ads, 6 12 bk ap ee See ae ae) FE 
hye Soe VS eee EO ae ral Se) Sa ae ey Oy ce 
“2 * y * x°-l * y * x°-1xt)°a, (y * x°-l * y°-l * x°-2 x 
ya eer ey, se Da et Ce oe ee” ae ae ar ete.) 


Ce ((x*t))°f, (y*t)g>; 


index:=Index (G, sub<G|x,y>); 
if index gt 2 then 

if not (index in Indices) then 
Indices:=Indices cat [index]; 


printf ”\” 


prinit “at=Hoz: bi=%oe c:—%O2 -d=KHox “ei=“oe f=—Ro e:=—Ho; 
index, = 70st” ay, Dy Cy idee) fy i. index =; 

printi "Gex,y,t>=Group< x, yy, t | x° 55: y°3,- y * x°2 ¥ ¥ 
"a eR Da ye ee Sl oy aD ae ad A TD x ey ee ey 


RN Diet tose SD rye hey eae ys es ED) ey 
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t°11, (x°2 * y * x°-1 * y * x*-let)%a, (y * x°-1l * y*-1 
BOS Ra a AE By A Oe eet es, «Se oe ee ds. eae a oy 


)°2*t*y))*e ,((x*t))*f, (yet) *g>;\n”; 


f1 ,G1,k:=CosetAction(G, sub<G|x,y>); 

printf ”f,G1,k:=CosetAction(G, sub<G|x,y>);\n#k;\n /* %o */ 
\n”, #k; 

printf ”G1;\n”; Gl; 


printf ”#N eq #sub<G1|f(x),f(y)>;\n /* %o */\n”, #N eq #sub 
eal P(e) 1x 
printf ” CompositionFactors(G1);/*\n”; 
CompositionFactors (G1) ; 
else 
SetOutputFile(” Monomiall1_12Nums3. 
(Te. es 


if first then 


StrN ; 
first:= false; 
end if; 
print Py" 
igen 


printh’ "a=—%oz: bi=%o* -c:=Hoe, -d:=46* 6=Hoe f=Hor w=Ko:; 
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index —horl i”, a, bs 6s dy 63/4 6, dndex 3 

print! "Gexj7 ft >—Group< Xe yy. ts || Oy OSG ye ee ey 
“-] x x°2 * y * x°-1 * y°-1l * x*-1, t°12, (x * yx x * y 
6 SE) Db Se Oe ey De Ey Bo Se ae Te SED eS ae 
t°11, (x°2 * y * x°-1 * y * x*°-let)*a, (y * x°-1l * y*-l 
eo SD ey ee eet by Oe Ber oye & yet od, Cistcesy 
)*2et*y))*e ,((x*t))°f, (y*t)*g>; \n”; 

printf ”f ,Gl,k:=CosetAction (G, sub<G|x,y>);\n#k;\n”; 

printf ”G1;\n”; 

printf ”#N eq #sub<G1| f(x) ,f(y)>;\n”; 

printf ”CompositionFactors(Gl1);\n”; 

Unset OutputFile() ; 

end if; 
end if; 
end for; 


/* nohup magma ” Progl2**11:mN.1”&>Prog12**11:mN.1. out& 
*/ 
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Appendix F 


MAGMA CODE: Double Coset 
Enumeration of 3:(2S5) Over 


Dj 


S:=Sym(6) ; 
SSS (ls “Da: od, 44 Oy, OS 
yriHsllil, 6)(25. 5/08. 4) 


Géx yi >=—Group<x sy t |x 6,y° 2 y(cy) 2078 hf ( xky) OX), 
b. (Xo B)=— 2 yt Sel toy Ly 2S 

f ,G1,k:=CosetAction(G, sub<G|x,y>); 

FAG: fRL20) ¥F 
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IN:=sub<G1| f(x), f(y)>; 


N:=sub<S|xx,yy>; 


for i in [0..5] do 
for j An [03.1] 2do 


printf ”"%o”, i;j,xx°itxyy’j; 


AU (C2955 8) (2, 65: 4) 


41 


end for; 
end for; 
|x 
00 Id(S) 
Ot Cie 6)Oy-5):3s: 4 
10! fis BeBe 45s 86) 
11 (1, 5)(2, 4) 
20: (14°38) 6) (2y 4556) 
ic AV Os BG) 
30 (1, 4)(2, 5)(3, 6) 
By C1 28 ay 20) 

( 

( 

( 

( 


CompositionFactors(Gl); /x 
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G 

| Cyclic (2) 

* 

| Alternating (5) 
* 

| Cyclic (2) 

* 

| Cyclic(3) 

1 x/ 


NL:=NormalLattice(Gl); NL; 


IN:=sub<GI1| f(x) ,f(y)>; 
be oo Td GIy se oe an" ee OG]s 3 


ts [4]:=ts[1]* —1;ts[5]:=ts[2]* —1;ts[6]:=ts[3]* —-1; 

ts; 

DoubleCosets (G, sub<G|x,y>, sub<G|x,y>);/* 

{ <GrpFP, Id(G), GrpFP>, <GrpFP, t * x * t * x * t * x°-l * 
t, GrpFP>, <GrpFP, t* x * t * x * t * x * t, GrpFP>, < 
GrpFP, t * x * t * x°-1 * t, GrpFP>, <GrpFP, tx x * t 
“—1, GrpFP>, <GrpFP, t, GrpFP>, <GrpFP, t * x * t, GrpFP 
>, <GrpFP, t * x* t * x * t, GrpFP>, <GrpFP, t * x * t * 
x * t°—1, GrpFP> } 
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¥) 


DG:= [tld (G) 5 fi). Be ee al) PO Gee A EL ae 

xe t * x*-l« t), f(t *# xe t exe t), f(t «xe t * x 
be ae be a ee eh a a as ae ES es et 

+ SESE OE Mee Gy les 

DC; 

DoubleCosetRepresentatives(Gl, IN, IN); 
FN ; 
Index(G1,IN); /* 60 */ 


cst := [null : i in [1 .. Index(G1,IN)]|] where null is | 
Integers() | ]; 

prodim := function(pt, Q, I) 
Vv := pt; 


for i in I do 


end for; 
return v; 


end function; 


for i := 1 to 6 do 
cst |[prodim(1, ts, [i])] := [i]; 
end for; 


m:=0; 


for i in [1..10] do 
if cst[i] ne [] then 
m=m+1; 
end if; 
end for; 


mag Bc ef 


Orbits (N) ; 
Nl1:= Stabilizer(N, 1); 
Orbits (N1) ; 


FindDCGroupNumber := function(DC, element, IN) 


for i in [1..#DC] do 
for m,n in IN do 
if element eq m*(DC[i])*n then 
return 1; 
end if; 
end for; 
end for; 


end function; 


/* ConvertToPermutation(ts, [1,2,3]); and returns a 


permutation of IN isomorphinc to t1t2t3 


ts [1] *ts'[2|*ts [3] */ 
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Same as doing 


ConvertToPermutation:= function(ts, Tset) 
perm:= ts|Tset [1]]; 
for i in [2..4#Tset] do 
perm:= perm*ts[Tset[i]]; 
end for; 
return perm; 


end function; 
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FindDCGroupNumberOfTset := function(ts, DC, Tset, IN) 


IndPerm:= ConvertToPermutation(ts , Tset) ; 
return FindDCGroupNumber(DC,IndPerm, IN); 


end function; 


FindDCGroupNumber (DC, ts[1l]*ts[1], IN); /*2 


belongs to [1] which is #2 in magmax/ 


FindDCGroupNumber (DC, ts[l]*ts[4], IN); /* 1 */ 


FindDCGroupNumber (DC, ts[l]*xts[2], IN); /*4 */ 


FindDCGroupNumber (DC, ts[1l]*ts[3], IN); /* 3 */ 


EquivalentCosets := function(N, IN, ts,Tset) 
perm:=ConvertToPermutation( ts, Tset) ; 
TSets :=[]; 
for g in IN do 


for n in N do 


Ntltl 


then print SSS[i]; 


perm2:= ConvertToPermutation(ts, Tset*n); 
if perm eq g*xperm2 then 
TSets:= TSets cat [Tset*n]; 
end if; 
end for; 
end for; 


return TSets; 


end function; 


EquivalentCosets (N, IN, ts, [1,3]); 


[1.53 )' and .[6.,4]) #7 


S:={[1,3]}; 

Ss7=8°N S85 

SSS:=Setseq(SS) ; 

for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[3] 

eq g*ts[Rep(SSS[i]) [1]]* ts [Rep(SSS[i]) [2]] 


if; end for; end for; 


StabilizingGroup := function(N, IN, ts, Tword) 


TWords:=EquivalentCosets(N, IN, ts, Tword) ; 
group:=Stabiliser(N, Tword) ; 
for i in [2..4TWords] do 
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for n in N do 
if Tword*n eq TWords[i] then 
group:=sub<N| group ,n>; 
end if; 
end for; 
end for; 
return group; 
end function; 
N13s:= StabilizingGroup(N, IN, ts, [1,3]); 
N13s; 
fe 1s BY C2y OO). (Bim AS ey 
Orbits (N13s) ; 


for i in [1..#DC] do for m,n in IN do if ts[1]*ts[3]*ts [1] 
eq m*(DC[i])*n then i; break; end if; end for;end for; 
a eo 

FindDCGroupNumber (DC, ts[l]*«ts[3]*ts[1], IN); /* 2 x*/ 


for i in [1..4#DC] do for m,n in IN do if ts[1]*ts[3]* ts [2] 
eq m*(DC[i])*n then i; break; end if; end for;end for; 
fe We 

FindDCGroupNumber (DC, ts[l]*«ts[3]*ts[2], IN); /* 7 x*/ 


for i in [1..4DC] do for m,n in IN do if ts[1]*ts[3]* ts [3] 
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eq m*(DC[i])*n then i; break; end if; end for;end for; 


pe Aca 
FindDCGroupNumber (DC, ts[1]*ts[3]*ts[3], IN); /* 4 «/ 


N132s:= StabilizingGroup(N, IN, ts, [1,3,2]); 


N132s ; 
S:={[1,3,2]}; 
SS:=S°N;SS; 


SSS:=Setseq (SS) ; 

for i in [1..#4S88] do 

for g in IN do if ts[1]*ts[3]*ts [2] 

eq gts [Rep(SSS[i]) [1]]* ts [Rep(SSS[i]) [3]]* ts [Rep(SSS[i]) 
[2]] 

then print SSS[i]; 


end if; end for; end for; /*x NONE */ 


N132:=Stabiliser(N,[1,3 ,2]); 
#N132; 


Orbits (N132s) ; 


for i in [1..#DC] do for m,n in IN do if ts[1]*ts[3]* ts [2]x 
ts[1] eq m*(DC[i])*n then i; break; end if; end for;end 
for: f* 6x / 
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FindDCGroupNumber (DC, ts[1]*« ts[3]*ts[2]*ts[1], IN); 


for i in [1..#DC] do for m,n in IN do if ts[1]*ts[3]* ts [2]x 
ts [2] eq m*(DC[i])*n then i; break; end if; end for;end 
for; /*7x*/ 

FindDCGroupNumber (DC, ts[1]* ts[3]*ts[2]*ts[2], IN); 


for i in [1..#DC] do for m,n in IN do if ts[1]*ts[3]* ts [2]x 
ts[3] eq m*(DC[i])*n then i; break; end if; end for;end 
for ; 


FindDCGroupNumber (DC, ts[1]* ts[3]*ts[2]*ts[3], IN);/*8x*/ 


fori. im? [152DC] -do. for inn in IN do if ‘ts'|1)#ts.[3)*ts|.2)* 
ts[4] eq mx(DC[i])*n then i; break; end if; end for;end 
for; 


FindDCGroupNumber(DC, ts[1l]*«ts[3]*ts[2]*ts[4], IN); /*4x«/ 


for i in [1..4#DC] do for m,n in IN do if ts[1]*ts[3]* ts [2]x 
ts[5] eq m*(DC[i])*n then i; break; end if; end for;end 
for; 


FindDCGroupNumber(DC, ts[1l]*ts[3]*ts[2]*ts[5], IN); /*3x«/ 


for i in [1..#DC] do for m,n in IN do if ts[1]*ts[3]* ts [2]x 
ts[6] eq m*(DC[i])*n then i; break; end if; end for;end 


for ; 
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FindDCGroupNumber(DC, ts[1]*«ts[3]*ts[2]*ts[6], IN); /*6*/ 


N12s:= StabilizingGroup(N, IN, ts, [1,2]); 


N12s; /* <e> */ 


$:={[1,2]}: 
SS:=8°N;SS; 

SSS:=Setseq(SS) ; 

for i in [1..#SSS] do 

for g in IN do if ts[1]*ts[2] 

eq gts [Rep(SSS[i]) [1]]* ts [Rep(SSS[i]) [2]] 
then print SSS[i]; 


end if; end for; end for; 


N12s:=Stabiliser (N,[1 ,2]); 
#N12s; N12s; 

Orbits(N12s); /* {1}, { 2} , {3}, {4}, {5}, {6} +/ 
FindDCGroupNumber (DC, ts {[1]*ts[2]*ts [1], IN 
FindDCGroupNumber (DC, ts {[1]*ts[2|]*ts [2], IN 


FindDCGroupNumber (DC, ts{[1]*ts[2|]*ts [4], IN 


FindDCGroupNumber (DC, ts[1l]*ts[2]*ts[5], IN 


( ) 

( ) 
FindDCGroupNumber (DC, ts [1]* ts [2]*ts[3], IN);/* 6 */ 

( ) 

( ) 
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FindDCGroupNumber(DC, ts[1l]*ts[2]*ts [6], IN); /* 7 «/ 


DoubleCosetRepresentatives(Gl, IN, IN); 

je [ 12, 72, 144, 72, 144, 36, 144, 24, 72 ] «/ 

| A719. 7O719. TAA 19 OVO. Aa 1. BESO. 144 18, 
24/12, 72/12 ]; 

/* Numbers in the circles [ 1, 6, 12, 6, 12, 3, 12, 2, 6 |] 
«/ 


N121s:= StabilizingGroup(N, IN, ts, [1,2, 1]); 

N121s; 

Orbits(N121s); {3, 6 }, {1,5,4,2}; 

FindDCGroupNumber(DC, ts[1l]*«ts[2]*ts[1l]*ts[1], IN); /*4x/ 
FindDCGroupNumber(DC, ts[1]*«ts[2]*ts[1l]*ts[3], IN); /*8x/ 


N1323s:= StabilizingGroup(N, IN, ts, [1,3, 2,3]); 

N1323s; 

Orbits (N13238) «7% ti}: fab, TO, 6b, 434. -b} ae 

FindDCGroupNumber(DC, ts[1l]*ts[3]*ts[2]*ts[3]*«ts[1], IN); 
/* 5x/ 

FindDCGroupNumber(DC, ts [1]*ts[3]* ts [2]*ts[3]*«ts[4], IN); 
ft 8 #). 


FindDCGroupNumber(DC, ts [1]*ts[3]* ts [2]* ts[3]*ts[2], IN) 
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eT oe] 
FindDCGroupNumber(DC, ts [1]*ts[3]* ts [2]*ts[3]*«ts[3], IN); 


j= 6 */ 


N1321s:= StabilizingGroup(N, IN, ts, [1,3, 2,1]); 

N1321s; 

Orbits(N1321s); /* {1}, {2}, {3}, {4}, {5}, {6} */ 

FindDCGroupNumber (DC, ts [1] * ts [3] * ts [2]* ts[1]*ts[1], IN); 
Ja Ax/ 

FindDCGroupNumber (DC, ts [1] * ts [3] * ts [2]* ts [1]*ts [2], IN); 
TE ef 

FindDCGroupNumber (DC, ts [1] * ts [3] * ts [2]* ts [1]* ts [3], IN); 
/x 9 «/ 

FindDCGroupNumber (DC, ts [1] * ts [3] * ts [2]* ts [1]*ts [4], IN); 
ae ae 

FindDCGroupNumber (DC, ts [1] * ts [3] * ts [2]* ts[1]*ts[5], IN); 
/x8 */ 

FindDCGroupNumber (DC, ts [1] * ts [3] * ts [2]* ts [1]*ts [6], IN); 
x 6x/ 


N13213s:= StabilizingGroup(N, IN, ts, [1,3, 2,1,3]); 
Pa hg, De B.A ee.) 

(le Sa Bye) 4x6) 

CTA a) (2. cB) 43 6) 


(ho Gs “ite J as 2) 
(Te Ba VA 2g Oe Ay ey 
N132138s; 
EquivalentCosets(N, IN, ts,[1,3,2,1,3]); 


Bee Ay: 865. 2b Nh ey 


FindFromToPerms:= function(Tsetl, Tset2, N) 


NPerms : = []; 
for n in N do 
if Tsetl*n eq Tset2 then 


NPerms:= NPerms cat [n]; 


end if; 
end for; 
return NPerms; 


end function; 


GetStringT := function (set ) 


Shir Se rs 
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for i in [1 .. #set] do 
Strl:= Strl cat ”t”; 
Strl:= Strl cat IntegerToString(set[i]); 
end for; 
return Strl; 


end function; 


for n in N do 
print ( GetStringT([2,6]*n) cat ” =”) cat 
GetStringT([3,5]*n) cat ” ( From R2 (t2t6 = 


(3th) °” cat. Sprint (a). cat") 


{xt2t6- = t3to- (.- From R2 (t2t6 = 1365) Id (N)\) 
t3tl = t4t6 ( From R2 (t2t6 = t3t5)*(1, 2, 3, 4, 5, 6) ) 
t5tl = t4t2 ( From R2 (t2t6 = t3t5)*(1, 6)(2, 5)(3, 4) ) 
t5t3 = t6t2 ( From R2 (t2t6 = t3t5)*(1, 4)(2, 5)(3, 6) ) 
t1t3 = t6t4 ( From R2 (t2t6 = t3t5)*(1, 2)(3, 6)(4, 5) ) 
t1t5 = t2t4 ( From R2 (t2t6 = t3t5)*(1, 6, 5, 4, 3, 2) ) 
*/ 
/*Magma proof of Nt1t2t3 [le Bye Te sae) 


ConvertToPermutation(ts, [1,3,5,6]) eq ConvertToPermutation 


(te) [bh 26-36])% 
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ConvertToPermutation(ts, [1,3,5,6]) eq ConvertToPermutation 


(ts, [6,4,5,6]); FindFromToPerms(([6,4,5,6] ,[1,3,2,1],N); 


EquivalentCosetsInfo := function(N, IN, ts ,Tset) 
perm:=ConvertToPermutation( ts, Tset) ; 
Tstrs. +=]. 
for g in IN do 
for n in N do 
perm2:= ConvertToPermutation(ts, Tset*n); 
if perm eq gxperm2 then 
TStrs:= TStrs cat [”\n” cat Sprint(g) cat 
GetStringT(Tset) cat ”°” cat Sprint(n) cat 
» =” cat GetStringT(Tset*n) |; 
end if; 
end for; 
end for; 
return TStrs; 


end function; 


pe PLOOL TItSt2te = "tbe xs 

Convert ToPermutation(ts ,[1,3,2,4]) eq ConvertToPermutation 
(ts ,[655])% /* true */ 

for n in N do 


print ( GetStringT ([1,3,2,4]*n) cat ” =” cat 
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GetStringT((6,5]*n) cat ” from (t1t3t2t4 = t6t5) 

Cate Sprint (im) ) 3 

end for; 

fe proof t1t3t2 =} +6t5tl. */ 

ConvertToPermutation(ts ,[1 ,3,2]) eq ConvertToPermutation ( 

ts ,[6,5,1]); 
for n in N do 
print ( GetStringT([1,3,2]*n) cat ” =” cat 

GetStringT({6,5,1]°n) cat ” from (t1t3t2 = 
t6t5t1)*” cat Sprint(n)); 


end for; 


a: t1t3t2t4 = t6t4t2t4 +) 

Convert ToPermutation(ts ,[1,3,2,4]) eq ConvertToPermutation 
(ts ,[6,4,2,4]); 

PrintConjugatedRelations:=procedure(TSetl, TSet2, N) 


str:= ” 


from (” cat GetStringT(TSetl) cat ” =” cat 
GetStringT (TSet2) cat ”)°*”; 
for n in N do 
print ( GetStringT(TSetl*n) cat ” =” cat GetStringT ( 
TSet2°n) cat str cat Sprint(n)); 


end for; 


end procedure; 
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/proof *t1t3t2t6 = t1lt6t5 */ 

ConvertToPermutation(ts ,[/1,3 ,2,6]) eq ConvertToPermutation ( 
srcarea leery sae ob 

PrintConjugatedRelations([1,3,2,6], [1,6,5], N); 


(© tlAG3t266 = Pl 5t3st2 #7 

ConvertToPermutation(ts ,[/1,3,2,6]) eq ConvertToPermutation ( 
Osea We Mes aes ee 

PrintConjugatedRelations([1,3,2,6], [1,5,3,2], N); 


/x t1t3t2t6 = t2t4t3t2 «/ 

ConvertToPermutation(ts ,[/1,3,2,6]) eq ConvertToPermutation ( 
ts'.¢| DA a? |) 

PrintConjugatedRelations([1,3,2,6], [2,4,3,2], N); 


/* t1t2tl = t4t5t4. */ 

ConvertToPermutation(ts ,[1,2,1]) eq ConvertToPermutation(ts 
[4,5 ,4]); 

PrintConjugatedRelations([1,2,1], [4,5,4], N) 

FindFromToPerms([{1,2,1], [4,5,4], N); 


/x t1t3t2t3 = t1t5t6t5 «/ 
ConvertToPermutation(ts ,[/1,3 ,2,3]) eq ConvertToPermutation ( 


tool 3556.5) )5 
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/* cst:=FindCosetOrder([1,2], N, IN, ts, cst); */ 
FindCosetOrder:= function(TSet, N, IN, ts, cst) 
stab:= StabilizingGroup(N, IN, ts, TSet); 
tr:= Transversal (N, stab) ; 
for i:=1 to #trl do 
ss:=TSet*trl1 [i]; 
cst |[prodim(1,ts,ss)]:=ss; 
end for; 
return cst; 
end function; 
cst:= FindCosetOrder([1,2], N, IN, ts, cst); 
cst:=FindCosetOrder([1,3], N, IN, ts, cst); 
cst:=FindCosetOrder([1,3,2], N, IN, ts, cst); 
cst:=FindCosetOrder([1,3,2,1], N, IN, ts, cst); 
cst:=FindCosetOrder ([1,3,2,3], N, IN, ts, cst); 


cst:=FindCosetOrder 


( 
( 
( 
( 
(114251) 9 Ny IN, ts, est): 
( 


cst:=FindCosetOrder ([1,3,2,1,3], N, IN, ts, cst); 


cst; 


/* PrintEquivalentCosetsTo(N, IN, ts,[1,2,1]); */ 
PrintEquivalentCosetsTo:= function(N, IN, ts ,Tset) 
ECs:=EquivalentCosets(N, IN, ts,Tset); 


a, A m, 
str:= ”N”; 
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fOr “it im lee BCs de 
str := str cat GetStringT(ECs[i]) ; 
edge:=” = N”; 
if i eq #ECs then 


edge:= ”\t”; 
end if; 
str := str cat edge; 
end for; 
return str; 
end function; 
PrintEquivalentRelations := procedure(N, IN, ts ,Tset) 


perm:=ConvertToPermutation( ts, Tset) ; 
TSets :=[]; 
for g in IN do 
for n in N do 
if n eq Id(N) or g eq Id(IN) then continue; end if 
perm2:= ConvertToPermutation(ts, Tset“n); 
if perm eq g*xperm2 then 
GetStringT(Tset) cat ” =” cat Sprint (InWord(g)) cat 
GetStringT(Tset“n); 
GetStringT(Tset*n) cat ” =” cat Sprint (InWord(g*—1)) cat 


GetStringT (Tset) ; 


end if; 
end for; 
end for; 


end procedure; 


PrintEquivalentRelations (N, IN, ts, [1,3]); 


S:=Sym(6) ; 
xxi=Ol( 15 2,3, 43 Sy 6) 
yy:=S!(1, 6)(2, 5)(3, 4); 


N:=sub<S|xx,yy>; 


Geax yb SiS Grotip<* 575 | X89" 2, Ceey 2b 38 Ui eey 5 


be CX" Bb 2b ee Ee 
f ,G1,k:=CosetAction(G, sub<G|x,y>); 
#G1; 


NL:= NormalLattice (G1) ; 
NL; 
for i in [1..4#NL] do 
if IsAbelian(NL[i]) then 


end for; /* 2. x/ 
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NL[2]; 
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A:=G1!(1, 54, 53)(2, 50, 49)(3, 41, 40)(4, 39, 42)(5, 45, 


37)(6, 28, 51)(7, 52, 26)(8, 23, 55)(9, 38,47)(10, 


58, 


22)(11, 48, 36)(12, 29, 43)(13, 17, 56)(14, 44, 27) (15, 


5 G6) (184-21), 60).(19,. BL B2)(90,. 24, 33) (24, 5, 


59)(30, 35, 46); 


q, ff:=quo<G1|NL/[2] >; 


Order(q); /* 240. 


G1 ~ 3:Q «/ 


T:= Transversal(G1,NL[2]) ; 


ff (T[2]) 
B=T | 2) 


N:=q; 


eq q.l; 


NL:=NormalLattice (N) ;/* 


[7] Order 
[6] Order 
[5] Order 
[4] Order 
[3] Order 


240 


120 


120 


120 


60 


Length 1 
Length 1 
Length 1 


Length 1 


Length 1 


Maximal 


Maximal 


Maximal 


Maximal 


Maximal 


Gl has not normal subgroups of 240 ==> 


Subgroups: 
Subgroups: 
Subgroups: 


Subgroups: 


Subgroups: 
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[2] Order 2 Length 1 Maximal Subgroups: 1 


[1] Order 1 Length 1 Maximal Subgroups: */ 


for i in [1..#NL] do 
if IsAbelian(NL[i]) then 
Te 
end if; 
end for; f* 20 af fe | Nblg[2)| = 2 «/ 


q, ff := quo<N|NL[2] > 
qa; /* 
Permutation group q acting on a set of cardinality 10 


Order = 120 = 2°3 * 3 *« 5 


(1, 2, 5)(3, 7, 9)(4, 6, 8)*/ 
IsIsomorphic(NL[4],q); /* true x*/ 
IsIsomorphic(DirectProduct (NL[4] ,NL[2]) , N); /* true x/ 


He. EPBO. ae daF 


N:=q; 
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NL:=NormalLattice(N) ; 
NL; 
IsIsomorphic(q, Sym(5)); /* true */ 


/* Isomorphism type: G~3:(2 S85 :) x/ 
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Appendix G 


MAGMA CODE: Double Coset 
Enumeration of Lo(25) Over S5 


/*The following magma code was used to isolate L2(25) */ 
S:= Sym(24); 
xx:=S!(1,2,4,18,9) (3,13,14,16 ,24) (6,21,7,8,10) 
(12,15 ,19,20,22); 
yy:=8!(1,21) (2,5) (3,19) (4,6) (7,15) (8,11) (9,13) (10,12) 
(14,17) (16,18) (20,23) (22,24); 
N:=sub<S|xx,yy>; 
CompositionFactors (N) ; 


IsIsomorphic(N,Sym(5));/* true */ 


FPGroup (N) ; 


NNKx ,y>:= Group<x,y| x°5, y°2,(x°-lxy)°*4, (x * y * x°-2 * y 
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eS ee 
fn ,N1,kn:=CosetAction(NN, sub<NN|Id(NN)>); 


IsIsomorphic(N,N1); /* true */ 


W:=WordGroup (N) ; 
rho:=InverseWordMap (N) ; 


Stabilizer(N, {1,7,13,19}); 
(NI((2, 12, 22, 9, 11)(3, 5, 14, 6, 10)(4, 15, 17, 20, 18) 


(8, 24, 16, 21, 23)))@rho; 


C:=function (W) 
w3 := W.1 *« W.2; w4 := wd *« W.1; wd := w4 « W.1; w6 := 
wo * W.2; wl := W.1°—-1; w7 := w6 *« wl; return w7; 


end function; 


C(FPGroup (N) ) ; 


xx * yy * xx°2 * yy * xx°—1; /* this what we need to use 


LOT (try ok ee OD eye er a) 


a:= 0; b:=0; c:=0; d:= 2; e:= 4; 


G<x ,y,t>:=Group<x,y,t| x°5, y°2,(x°—l*y) °4,(x*y*x*—2Q*y*x) 
Pl he Dat te See Oe Be a a Le A dey te xe 


fae. tee ey oe yet: o(aeRy es tet, (sere). coe” et) 


“e>; 


#sub<G|x,y>; 
Index (G, sub<G|x,y>); 


ff ,G1,k:=CosetAction(G,sub<G|x,y>); 


CompositionFactors (G1) ; 


NL:=NormalLattice (G1) ; 


W:=WordGroup (G1) ; 
rho:=InverseWordMap (G1) ; 
(NL[2].2) @rho ; 


C:=function (W) 
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wl := w.l°—-1; w4 := wl * w.2; wd := w4 * wl; w6 := wo * w 
.2; wl := w6 * w.l; w8 := w7 * w.2; w9 := w8 * w.l; wl 
:= w9 * w.3; wll := wl0 * w.l; wl2 := wll *« w.3; wl3 := 
wl2 * w.3; wl4:= wl3 * w.l; wl5 := wl4 * w.3; return wld 


end function; 
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C(G); /* x°-l *« y * x°-l * y* xX * y &* x eK t * K * t°Q x 


x « ¢ «'/ 


/* Original 


a:= 0; b:=0; c:=0; d:= 2; e:= 4; 


G<x,y,t>:=Group<x,y,t| x°5, y°2,(x°—lxy) °4,(x*y*x*—2Qxy*x) 
WD Dah Rg SORE PCE RD ey os eS) a es Slay aS. Cee 
tL) ag taery et x) Dl et” (ery ye, Cac tet eee) ds Ce vet 


e, x°--l * y * x°-l * y * x * y * x * t * x * t{°2 * x x 


t>; 


Gb<x ,y ,t >:=Group<x,y,t| x°5, y°2,(x°—lxy) *4,(x*y*x* —2*y*x) 
“Dot bility See ee BOD ay ee STs 4 Oe Sey) =F Sy. Cee 
bet (ese ee De PK ke Bp ee ERD et Ce ee) 2 mo e 
Ve ROD ae ye eT ea ee Sees ae 
x * t>; 

fb ,Glb, kb:=Coset Action (Gb, sub<Gb|x,y>); 


IsIsomorphic(Gl, Glb); */ 


The following magma code helps prove the DCE of L(2,25) 


S:= Sym(24) ; 
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xx:=§!(1,2,4,18,9)(3,13,14,16,24) (6 ,21,7,8,10) 
(12,15,19 20,22); 

yy:=8!(1,21) (2,5) (3,19) (4,6) (7,15) (8,11) (9,13) (10,12) 
(14,17) (16,18) (20,23) (22,24); 

N:=sub<S|xx,yy>; 

NNkx ,y>:= Group<x,y| x°5, y°2,(x°-l*y)°*4, (x * y * x°-2 * y 


¥ oR) 2S: 


G<x ,y,t>:=Group<x,y,t| x°5, y°2,(x°—lxy) °4,(x*y*x*—2Q*y*x) 
“Date Oy bs. SES ee BOD cy ee RSL te Da a ae 
tah (ere) 4 2x yet) 45. 3a & ok a ey ae yp em 
* t *« x * t°2 * x * t>; 

/* { x, y t| x5, y2, (x-ly)4, (xyx—-2yx)2, t5, (t, xyx2yx-1) 
, tx*(-l)y = t3, (x, ttx*x)2, (xyt)4, x—lyx-l 
yxyxext2xt } «/ 

f ,G1,k:=Coset Action (G, sub<G|x,y>); 

CompositionFactors (G1) ; 

DoubleCosets (G, sub<G|x,y>,sub<G|x,y>); 


IN:=sub<GI1| f(x) ,f(y)>; 
Sch:=SchreierSystem (NN, sub<NN| Id (NN) >); 
word:= function (Perm) 

for w in Sch do 


seq := Eltseq(w); 


292 


p:= Id(N); 
for j in seq do 
if j eq 1 then p:=p*xx; end if; 

if j eq —1 then p:=px*xxx*-—1; end if; 
if j eq 2 then p:=pxyy; end if; 
if j eq —2 then p:=pxyy°—1; end if; 

end for; 

if Perm eq p then return w; end if; 
end for; 


end function; 


Word2NPerm:= function(letters ) 

seq := Eltseq(letters); 
p:= Id(N); 
for j in seq do 

if j eq 1 then p:=p*xx; end if; 

if j eq —1 then p:=px*xxx*-—1; end if; 
if j eq 2 then p:=pxyy; end if; 
if j eq —2 then p:=pxyy°—1; end if; 
end for; 
return p; 


end function; 


InWord:= function (Perm) 
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for w in Sch do 

seq := Eltseq(w); 

p:= Id(IN); 

for j in seq do 

if j eq 1 then p:=pxf(x); end if; 

if j eq —1 then p:=pxf(x)*-1; end if; 
if j eq 2 then p:=pxf(y); end if; 
if j eq —2 then p:=pxf(y)*—-1; end if; 

end for; 

if Perm eq p then return w; end if; 
end for; 


end function; 


GetConjugationWordForSubscript:= function(subscript ) 
size :=9999999; 
w:=word(N.1) ; 
for n in N do 
if n eq Id(N) then 
continue ; 
end if; 
if 1°n eq subscript then 
tmp:= word(n) ; 
if size gt #tmp then 


size:=7tmp; 


w:= tmp; 
end if; 
end if; 
end for; 
return w; 


end function; 


for i in [1..24] do 


te |? scab pprink |. 2)) Cab? )). Sac? eat ipa a 
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cat Sprint 


(GetConjugationWordForSubscript(i)) cat ”));”; 


end for; 

ts:= [ Id(G1): i in [1 2A) 3 
tS [1 = 2 GR)s 

(s-| 2), SS. Pee) 

ts[3] := f£(t*(x°-l * y * x*-1)); 
ts [4] := f(t*(x°2)); 

ts[5] := f(t*(x * y)); 

ts[6] := f(t*(y * x*-1)); 

ts[7] := f(t*(y * x)); 

ts [8] := f(t*(y * x°2)); 

$9) =F he =1))2 

t3[10] := f(t*(y * x*—2)); 
ts[{11] := f(t*(y * x2 * y)); 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


StrPowers:= 


for 


12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 


i 
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999, 


[1..24] do 


ror ke amo [2 do 


for j in [1..24] do 
if i eq j then continue; end if; 
if ts[i]*k eq ts[j] then 
StrPowers:= StrPowers cat ” 
i” cat Sprint (1) cat 
IOP Et Sperm) (Cab 2 


=i eats pram) at 


end if; 
end for; 
end for; 
StrPowers:= StrPowers cat ”\n”; 
end for; 
StrPowers; /x 
tL 2-= tT. tL. =the 
2° 2°] 08s to. le 
(3°22: 69, 3.3); Sts. 
ta 2 = ti (4° ]t16-, 
to. 2 tht, bo. ot =e Te, 
6° 2. =) 412; th oS tls, 
Ct 25S F190 tie = alt 
tS 2 = t20 t8 oS t2 4 
tO" 27S 021; 19-3) = HS 
F108 2 S422, C10" 3°44; 
t11°2 = +23, t11°3 = td, 
t12°2 = t24, t12°3 = t6, 
tls 2) S415 t13°3 = 619 ; 
tl4°2°= 42, 143° -9820 ; 
tLe 2S 43% t15°3 = t21, 
tl6°2:= 4s t1G 3) 122, 
C17 2°] "toy tLe 3 = 1234 


t1°4 
t2°4 
t3°4 
t4°4 
t5°4 
t6°4 
t7°4 
t8°4 
t9°4 
t10°4 
t11°4 
t12°4 
t13°4 
t14°4 
t15°4 
t16°4 
t17°4 


t19, 
t20, 
(21. 
t22, 
(23), 
t24, 
t13, 
t14, 
t15, 
t16, 
t17, 
t18, 
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t18°2 = t6, t18°3 = t24, t18°4 = t12, 
t19°2 = 13, f107 36> 474, t19*4 = tl, 
t20°2 = 14, t20°3 = t8, t20°4 = t2, 
t21°2 = 15, t21°3 = t9, t21°4 = t3, 
t22°2 = t16, t22°3 = t10, t22°4 = t4, 
(23° 417: (93°3°= 411, (237d, Ss. 
t24°2 = 18, t24°3 = t12, t24°4 = t6, «/ 
InverseIndex:= function (Index) 
for i in [1..24] do 
if ts[Index]*—1 eq ts[i] then return i; end 
if ; 

end for; 
end function; 
for i in [1..24] do 

mie Cad: opr.) Cate? = 4 <a: Sprint 

InverseIndex(i)) cat ”*-1”; 


end for; 


SplitT:= function (tsIndex) 


for n in N do 


if 138°n eq tsIndex then 


return 


[st Sas 


298 


end if; 
end for; 
return [0,0]; 


end function; 


/* Split in doubles x/ 
SplitTd:= function (tsIndex) 
for n in N do 
if 7°n eq tsIndex then 
return. [1.1 ) "a1 
end if; 
end for; 
return [0,0]; 


end function; 


TStr:= function (Tword) 

Stel 2S 2s 
for i in [1 .. #Tword] do 

if Tword[i] ne 0 then 

Strl:= Strl cat ”t”; 
Strl:= Strl cat IntegerToString(Tword|i]) ; 
end if; 
end for; 


return Strl; 
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end function; 


for i in [1..24] do 
he” cat Sprint (1), eat.’ =." eat TSie(Splitid(i).)4 


end for; 


DoubleCosets (G, sub<G| x, y>,sub<G|x,y>);/* 

{ <GrpFP, Id(G), GrpFP>, <GrpFP, t * x * t*°—1, GrpFP>, < 
GrpFP, t, GrpFP>, 

<GIpFP,“t # x * 4, (GrpFP> 7) «/ 

DGS | POd(G)), ttt), EO eee eS ee oe ea OST 

DC; 


HN; /x 120 */ 
DoubleCosetRepresentatives(Gl, IN, IN); /x [ 120, 2880, 
1200, 3600 ] «/ 
[ 120/120, 2880/120, 1200/120, 3600/120 ]; 


FindDCGroupNumber := function(element ) 
for i in [1..4#DC] do 
for m,n in IN do 
if element eq m*(DC[i])*n then 


return 1; 
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end if; 
end for; 
end for; 


end function; 


TPerm:= function(Tset ) 
perm:= ts|Tset [1]]; 
for i in [2..4#Tset] do 
perm:= permxts[|Tset [i ]]; 
end for; 
return perm; 


end function; 


Orbits (N) ; 

Nl:= Stabilizer(N, 1); 

Nl; /* (2, 9, 12, 11, 22)(8, 6, 5, 10, 14)(4, 20, 15, 18, 
17)(8, 21, 24, 28, 16) +*/ 

Orbits(N1); /xGSet{@ 1 @}, 
GSet{@ 7 @}, 
GSet{@ 13 @}, 
GSet{@ 19 @}, 
GSet{@ 2, 9, 12, 11, 22 @}, 
GSet{@ 3, 6, 5, 10, 14 @}, 
GSet{@ 4, 20, 15, 18, 17 @}, 
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GSet{@ 8, 21, 24, 23, 16 @} «/ 


FindDCGroupNumber (ts[1]*ts[1]); /* 2 */ 
FindDCGroupNumber (ts[1l]*ts[7]); /* 2 */ 
FindDCGroupNumber (ts[1]*ts[13]); /* 2 */ 
FindDCGroupNumber (ts[{1]*ts[19]); /* 1 x*/ 
FindDCGroupNumber (ts[1l]*ts[2]); /* 3 */ 
FindDCGroupNumber (ts[1l]*ts[3]); /* 4 */ 
FindDCGroupNumber (ts[1]*ts[4]); /* 4. x*/ 
FindDCGroupNumber (ts[l]*ts[8]); / * 2 */ 


/* Equivalent right coset */Find 
EquivalentCosets:= function(Tset ) 
perm:=TPerm( Tset) ; 
TSets :=[]; 
for g in IN do 
for n in N do 
perm2:= TPerm(Tset“n) ; 
if perm eq g*xperm2 then 
TSets:= TSets cat [Tset*n]; 
end if; 
end for; 
end for; 


return TSets; 
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end function; 


StabilizingGroup := function (Tword) 
TWords:= Equivalent Cosets (Tword) ; 
group:=Stabiliser(N, Tword) ; 
for i in [2..4TWords] do 

for n in N do 
if Tword*n eq TWords[i] then 
group:=sub<N| group ,n>; 
end if; 
end for; 
end for; 
return group; 


end function; 


N12s:= StabilizingGroup ([{1,2]) ; 
N12s; 
/* (1, 24)(2, 23)(3, 4)(5, 20)(6, 19)(7, 18)(8, 17)(9, 10) 
(14, 2A) (12. 13) (15 >. 16x (21,. 29) 
(1, 5)(2, 10)(3, 18)(4, 14)(6, 9)(7, 11)(8, 22)(12, 21) 
(13, 17)(15, 24)(16, 20)(19, 23) 
(1,020: 15)623-9s 10) 084-72 14 (4 Die ES S4. 16) 
(6510 0308s Os TS OO 7) 
Che 8) Oso BOY 134 e175 y. 10) 06: 24). Fy D184) 
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(11, 22) (12> 18)¢155, 19) (bey 23) 

(1s 19) (25 15} 3% 8) (4, 12) (By -23) (6, 16)(7,. 13) (94, 20) 
(1. Bayle, P14. 21) (Tey 22) 

(Ue 2a 24) 22) (ae 2 bas LOO 20 LCS. 
13 ).(9% WO) LOS Mo) ihe. Dayle sa) 


(1, 15 20) Qe 19 O08, Tas THe 18, 11) Gs 162 94) 
(6x23) 10) (Be13. OT GOs IF 32) 

(ey, Me BGs 2O3.° Ths 62 Bs Oy DA 10, 16) Bos 575 
OF 14s. APA; By AAs O12 “TRG 13} 

(1, 2)(3, 21)(4, 22)(5, 6)(7, 8)(9, 15)(10, 16)(11, 12) 
(13, 14)(17, 18)(19, 20)(23, 24) 

(165: ba 228s BOs TOV) 16: TO, ASO. SS ie ae, 
29%, Ty. WOVE, 18h 18% 2s Ty.) 

(1, 16)(2, 6)(3, 11)(4, 7)(5, 15)(8, 12)(9, 23)(10, 19) 
(13, 22)(14, 18)(17, 21)(20, 24) #/ 


(estii=suben (NIT. 6) 154 235° 20, 10) (25 Te, 1oy 24, 95. 5) 
(Ss. 17: Ty O07, AAV Sy 1S, Bie V1, “Be NI. 94) 
(2, 23)(3, 4)(5, 20)(6, 19)(7, 18)(8, 17)(9, 10)(11, 14) 
(19s 93) s Tél, 205s 

IsIsomorphic(N12s, test); 

(est:=sub<N|(NI(1, 6, 155 23, 20, 10)(2, 16, 19, 24, °9,.5) 
CFTR, Way OO, TO 1G, ABS BL Tis: By NIT 0-0 

20)(3, 13)(4, 17)(5, 10)(6, 24)(7, 21)(8, 14)(11, 22) 
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(12, 18)(15, 19)(16,23)> 


IsIsomorphic(N12s, test); 
Orbits(N12s); /x 
GSet{@ 1, 24, 5, 20, 9, 19, 23, 15, 10, 2, 6, 16 @}, 


GSet{@ 3, 4, 18, 7, 13, 8, 22, 14, 12, 21, 17, 11 @} */ 


FindDCGroupNumber (ts[1]*ts[2]*ts[1]); /* 2 */ 


FindDCGroupNumber (ts[1]*ts[2]*ts[3]); /* 4 */ 


N13s:= StabilizingGroup ([1,3]) ; 


N13s;  /* 

(is 7, 19, 13)(2, 6 OCs. Aes. MO Ge. PTs S eo" 
10, 20, 24)(14, 18, 21, 22) 

(1, 19)(2, 15)(3, 8)(4, 12)(5, 23)(6, 16)(7, 13)(9, 20)(10, 
24)(11, 17)(14, 21)(18, 22) 

Gi. 13, TGs, PO MOLL Oa IOs BAe IN 8 TRO. 
24, 20, 10)(14 , 21, 18) x/ 


Orbits(N13s); /x 

GSet{@ 1, 7, 19, 13 @}, 
GSet{@ 2, 6, 15, 16 @}, 
GSet{@ 3, 4, 8, 12 @}, 
GSet{@ 5, 17, 23, 11 @}, 
GSet{@ 9, 10, 20, 24 @}, 


GSet{@ 14, 18, 21, 22 @} «/ 


FindDCGroupNumber 
FindDCGroupNumber 
FindDCGroupNumber 
FindDCGroupNumber 
FindDCGroupNumber 


FindDCGroupNumber 


( 
( 
( 
( 
( 
( 


ts 


ts 


ts 


ts 


ts 


ts 


1 


1 


1 


* ts 


* ts 


* ts 


* ts 


* ts 


* ts 


3 
3 
3 


* ts 


* ts 


* ts 


* ts 


* ts 


* ts 


1]); /* 
2}); /* 
3}); /* 
5}); /* 
9}); /* 
14]) ;/* 


FindEquivalentRelations:= function(Tset, Tset2) 


perm:= TPerm( Tset) ; 


TSets :=[]; 


for g in IN do 


perm2:= TPerm(Tset2) ; 


if perm eq g*xperm2 then 


str:= str cat TStr(Tset) cat ” =” cat Sprint (InWord(g) ) 


cat TStr(Tset2) cat ”\n”; 


end if; 
end for; 


for n,m in IN do 


perm2:= TPerm(Tset2) ; 


if perm eq nx(perm2*m) then 


str:= str cat TStr(Tset) cat ” =” cat Sprint (InWord(n) ) 


cab 74 eat. Tstr( Tset2). ean 7)" eat 
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Sprint (InWord(m) ) 
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eats has 
end if; 
end for; 
return str; 


end function; 


FindFromToPerms:= function(Tsetl, Tset2) 

NPerms : = []; 
for n in N do 

if Tsetl*n eq Tset2 then 

NPerms:= NPerms cat [n]; 

end if; 
end for; 

return NPerms; 


end function; 


RELATION:= recformat< rightTword : SeqEnum, leftPerm: 
GrpPermElt, leftTword:SeqEnum, info, applyAt >; 

Relation:=function(rTword, IPerm, ITword, str, apply) 

return rec< RELATION | rightTword := rTword, leftPerm:= 
IPerm, leftTword:=lTword, info:= str, applyAt:=apply>; 


end function; 
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/* Permutation follow by a T word *x/ 
PermTword:= recformat< perm:GrpPermElt , tword: SeqEnum, 
name: MonStgElt ,parents:SeqEnum, appliedRelations , 


children >; 


/* example rec< PermTword | perm:= xx , tword:=[8, 9]> = 


XtSCGS a7 


PIW:=function(p, tw) 
mestr:=””; 
if p ne Id(N) then 
meStr:= Sprint(word(p)) cat ” * ” 
end if; 
meStr:= meStr cat TStr(tw); 
ptw:= rec< PermTword | perm:= p, tword:=tw, name:=meStr , 
parents :=[|, children:=0>; 


return ptw; 


end function; 


AddParent:=function(ptw, parentIndex, relation) 


if #ptw‘ parents eq 0 then 
ptw‘appliedRelations:= [relation]; 
ptw‘ parents:= [parentIndex ]; 


else 
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ptw‘appliedRelations:= ptw‘appliedRelations cat [ 
relation |; 
ptw‘parents:= ptw‘parents cat |parentIndex ]; 
end if; 
return ptw; 


end function; 


PtwStr:=function (ptw) 
if ptw‘perm eq Id(N) then 
return TStr(ptw‘tword) ; 
end if; 
return Sprint(word(ptw‘perm)) cat ”*” cat TStr(ptw‘ 
tword) ; 


end function; 


LemmaCC:= Relation ([4,8], yy*xx*°2*yy*xx*2*yy, [19], ”Lemma 
of CALB Se yx Dyx 2 yt 1." 50) 

LemmaCC2:= Relation ([19], yy * xx°-2 * yy * xx*°-2 xyy, 
[4,8], "Lemma 3: t19 = yx*2yx°—2yt4t8.” ,0); 

LemmaBB:= Relation ({19,9], yy*xx*—lxyy, [12,11], ”Lemma 2: 
t19t9 = yx*—lyt12t11” ,0); 

LemmaBB2:= Relation ({[12,11], yy*xx*yy, [19,9], "Lemma 2: 
tlt = yx yo Oto * 20) 5 


LemmaAA:= Relation ([9,2,22,19], Id(N), [1,4,20,15], "Lemma 
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1: t9t2t22t19 = t1t4t20t15” ,0); 
LemmaAA2:= Relation ([1,4,20,15], Id(N), [9,2,22,19], "Lemma 
1: t1t4t20t15 = t9t2t22t19” ,0): 


/* Power rules x/ 

trti9i=Relation (7 419] . 1d t(N. PL] a  e7tlg =.t17 0) 
tidie=Relation (lt ] Id (Ny. [els 7th 2 = Fe 20) s 
InvRelation:=Relation([{1,19], Id(N), [], ”t1t19 = Id” ,0); 


IdPower:=Relation( [1,1,1,1,1], Id(N), [], "Id = t175”,0); 
/*TODO not sure if we need [0] or [] ¥*/ 

tis] Rela tiem|1].3 LN) (0,19) 5.) ad SS B79? 50) 3 

ie] Relatwow (7 )ic. Tain ys? [ted gat ad 2"0)3 


ListRelations:=[ InvRelation, t7t19, tltl, IdPower, 
LemmaCC, LemmaAA, LemmaAA2, LemmaBB, LemmaBB2, LemmaCC2, 


tl |; 


/* If the order of ts = 2 then this will not work. Modify 
for that case. */ 
Reduce2Ts:= function(tsIndexl , tsIndex2) 
if tsIndexl eq 0 and tsIndex2 eq 0 then return [0]; 
end if; 


if tsIndexl eq 0 then return [tsIndex2]; end if; 
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if tsIndex2 eq 0 then return [tsIndex1]; end if; 
for~ 4 “an. [L24)]) do 
if ts[tsIndexl]*ts[tsIndex2] eq ts[i] then 
return [i]; end if; 
if ts[tsIndexl]*ts|[tsIndex2] eq ts[i]*5 then return [0]; 
end if; 
end for; 
return [tsIndexl, tsIndex2]; 


end function; 


ReduceTs:= function(Tset ) 
steps:=|Tset |; 
OK:=true; 
while OK do 
size:=#Tset ; 
if size lt 1 then return steps; end if; 
for i in [1..size] do 
j:=i4+l; 
OK:= false ; 
if j le size then 
r:= Reduce2Ts(Tset[i],Tset[j]) ; 
if #r eq 1 then 
Tsetse #15 


Tset:=Remove(Tset, j); 
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steps:= steps cat [Tset ]; 
OK:= true; 
break ; 
end if; 
end if; 
end for; 
end while; 
return steps; 


end function; 


ReducePtw:= function (ptw) 
tword:=ptw‘tword; 
steps:=ReduceTs(tword) ; 
if #steps gt 1 then 
for step in steps do 
if 0 in step then continue; end if; 
Sprint (word(ptw‘perm)) cat ”*” cat 
TStr(step); 
end for; 
ptw ‘tword:=steps|#steps |; 
end if; 
return ptw; 


end function; 
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ReducePtwToSize:=function (ptw, size ) 
tword:=ptw‘ tword; 
steps:=ReduceTs(tword) ; 
if #steps gt 1 then 
for i in [1..4#steps] do 
step:=steps |i]; 
if 0 in step then continue; end if; 


my” cat 


Sprint (word(ptw‘perm)) cat 
TStr(step); 
if #step eq size then 
ptw‘tword:=steps [i]; 
return ptw; 
end if; 
end for; 
ptw‘tword:=steps|#steps |; 
end if; 
return ptw; 


end function; 


/*xstart is the starting index. The relation has to of the 
form Tword = perm*Tword x/ 
ApplyRelation:=function(ptw, relation) 


applyAt:=relation ‘applyAt; /* t index to start at 


es 
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Tw:=ptw ‘tword ; 
rIw:= relation ‘rightTword; 
1Tw:= relation ‘leftTword; 
p:= relation ‘leftPerm; 
if applyAt gt #Tw then return ptw; end if; 
arr s,s 
/* Make sure we can apply relation at the starting 
index */ 


good:=true; 


/* make sure the relation can be applied x/ 
for i in [applyAt..#rTw] do 
if not good then return ptw; end if; 
if Tw[i] ne rTw[i — applyAt + 1] then good 
:= false; end if; 
end for; 


if not good then return ptw; end if; 


for i in [1..4#Tw] do 
/* move the permutation to the front */ 
if i lt applyAt then 
arri= arr cat [Tw[1|"p|; 
end if; 


end for; 
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arr:= arr cat ITw; /* replace by adding the left t 
word */ 

next:= applyAt + #Tw; /* add the part of the t 
word that wasnt replaced x/ 

if next gt #Iw then return PIW((ptw‘perm)*p, arr); 
end if; 

for i in [next..#Tw] do 

arr:= arr cat [Tw[i]]; 
end for; 
return PIW((ptw‘perm)*p, arr); 


end function; 


GetReationsToUse:=function(ptw ) 
Tword:=ptw‘tword; 
num:=#T word ; 
arr:=[]; /* saves relations that can be used on the 
element ptw */ 
arrStr:=[]; /* keep track of the results as strings 
to make we dont repeat x*/ 
for j in [1..#ListRelations] do 
rTword:= ListRelations |j]‘rightTword; 
ITword:= ListRelations[j]‘leftT word; 
IPerm:= ListRelations[j]‘leftPerm; 


info:=ListRelations |j] ‘info; 
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if num ge #rTword then 
for i in [1..(num —- #rTword + 1)] do 
temp:=[]; /* this is the a t word 
Coe ee 
for k in [i..(i + #1Tword — 1)] do 
temp:= temp cat [Tword[k]]; 
end for; 


for n in N do 


if temp eq rTword*n then 


wp:=word(n) ; 


strLeft:=””; 

if #l1Tword ne 0 then 

strLeft:= TStr(1Tword*n) ; 
else 

rTl'word’n, ptw‘tword; 
end if; 
newInfo:=”"Let p=” cat Sprint(n) cat ” belong to N.\n” cat 

inf. Cab: ? SSs\n(" “eat Tete (el word )) cath”) pS 0? cat 


Sprint(word(lPerm)) cat TStr(l1Tword) cat ”)*p = > \n” 
cat TStr(rTword*n) cat ” =” cat Sprint (word(lPerm“n) ) 
cat strLeft ; 

r:=Relation(rTword*n, |Perm 


n, ITword*n, newlInfo,i) 
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; 
rs:= TStr(rTword*n) cat ” =” cat Sprint(word(lPerm*n)) cat 
strLeft; /* the result if relation is applied */ 
found:= rs in arrStr; 
if not found then 
arrStr:= arrStr cat 
[rs]; 
arre= arr cat [1 ]s 
end if; 
end if; 
end for; 
end for; 
end if; 
end: ‘fore: * Lor’ jy 
return arr; 


end function; 


FindTword:=function(elements, tword) /* tword = [1,2 ,34] 
—> 1t2t3t4 +/ 
for i in [1..#elements] do 
if elements[i]‘tword eq tword then return 
i; end if; 
end for; 


return QO; 
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end function; 


/* see if we can find the tword after we apply a 
permutation and reduction. tword = [1,2,34] = > t1t2t3t4 
*/ 
FindTwordAfterProcessing:=function(elements, tword, startAt 
) 
for i in [startAt..#elements] do 
i, #elements; 
for n in N do 
*About to reduce ”, elements |i |‘ 
name ; 
steps:=ReduceTs (( elements [i] ‘tword) 
“n); 
if #steps gt 0 then 
for step in steps do 
if 0 in step’ then 
continue; end if 
; 
if tword eq step 
then 


return i, n 


end if; 
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end for; 
end if; 
end for; 
end for; 
return 0, Id(N); 


end function; 


ApplyRelationsToElements:=function (elements ) 
newElements :=[]; 
for i in [l..#elements] do 
/* find an element that has not being 
processed */ 


/* i, #elements; x/ 


if (elements[i]) ‘children eq 0 then 
ptw:=elements [i]; 


7G GROG GGG GRIGGSK GEOG OIG OR GG IGG GI GEOG ORR GR KK ok 


*Looking for relations to apply to”, PtwStr(ptw) ; 
relations:=GetReationsToUse(ptw) ; 
”Found ” cat Sprint(#relations); 
(elements[i]) ‘children:=1; /* TODO 
is not correct but as long as 


its greater than 1 it works x/ 
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for j in [1..#relations] do 
newPtw:= ApplyRelation(ptw, 
relations [j]); 
/* “Looking for:” , PtwStr( 
newPtw); */ 
/* i is the parent index */ 
/* only add to the list if its new t word x/ 
if FindTword(elements , 
newPtw‘tword) eq 0 and 
FindTword(newElements , 
newPtw‘tword) eq 0 then 
newPtw:= AddParent ( 
newPtw, 1, 
relations [j]); 
newElements:= 
newElements cat 


[newPtw ] ; 


relations [|j] ‘info 


” 


cat Apply at 


” 


position cat 


Sprint ( 


end if; 
end for; 
return elements 


end function; 


«/ 
t1t3:=PTW(Id(N) , 


/x Testing 


[1 ,3]); 
LhtisERes—|t1t3-|% 
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‘ 


relations |j] 
applyAt) cat 


>) ae 
> ’ 


”*Found a new name: 
*. PtwStr ( 
newPtw) ; 
end if; 


end for; 


cat newElements; 


tit3ERs:=ApplyRelationsToElements(t1t3ERs) ; 


FindTword(t1t3ERs, [7,4] 


ie 


tit3ERs:=ApplyRelationsToElements(t1t3ERs) ; 


FindTword(tlt3ERs, [7 ,4] 


is 


tit3ERs:=ApplyRelationsToElements(t1t3ERs) ; 


FindTword(t1t3ERs , 


[754] )3 


tit3ERs:=ApplyRelationsToElements(t1t3ERs) ; 


FindTword(t1t3ERs , 


[7 ,4]); 
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t1t4:=PIW(Id(N), [1,4]); 

t1t4Rs:=[t1t4 |; 
t1t4Rs:=ApplyRelationsToElements(t1t4Rs) ; 
t1t4Rs:=ApplyRelationsToElements(t1t4Rs) ; 

#t1t4Rs ; 

[ 15, 5, 7, 9 ]*(xx*2#yy*-1); 
FindTwordAfterProcessing(tlt4Rs, [| 23, 2, 12, 5 ], 1); 
t1t4Rs:=ApplyRelationsToElements(t1t4Rs) ; 

#t1t4Rs ; 

/* End of test x/ 


/* The targetTword is what we are trying to get to. Example 
we are trying to prove Ntlt4 = belongs to coset [1,3]. 


Then origTword = 1t4 = [1,4] and targetTword = t1lt3 = 


[1,3] */ 
ProveRelation:= function(origTword, targetTword) 
permarr:= FindFromToPerms(origTword, targetTword) ; 


if #permarr gt O then 
for p in permarr do 


” cat 


Sprint(word(p)) cat ” takes 
TStr(origTword) cat ” to ” cat 
TStr(targetTword) ; 


return true; 
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end for; 


end if; 


elements:=|[PIW(Id(N) , origTword) |; 


elements:=ApplyRelationsToElements (elements) ; 


temparr:=|]; 
pos:=1; 
pos, perm:= FindTwordAfterProcessing (elements , 


targetTword, 1); 
while pos eq 0 do 
start:=#elements; 
elements:=ApplyRelationsToElements (elements 
); 
pos, perm:= FindTwordAfterProcessing ( 
elements, targetTword, start); 


end while; 


if pos eq 1 then /* we found it right away */ 
tempTword:=elements [1] ‘tword; 
steps:=ReduceTs(tempTword* perm) ; 


if perm ne Id(N) then 
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sep; 


ptwConj:=PIW( Id(N), tempTword*perm ); 


”Conjugate by n=” cat Sprint(perm) cat ”. 
——s ”. 
p) 
”(? cat TStr(origTword) cat ”)*n =” cat PtwStr(ptwConj) 


m9, 
if ’ 


cat 
if #steps gt 2 then 
Sep ; 
"Reduce in the following 
way:”; 
ptwConj:=ReducePtwToSize ( 
ptwConj, #targetTword) ; 
end if; 
sep; 
p:= perm’ —1; 


*"Let p=” cat Sprint(perm*—1) cat 


”(” cat TStr(origTword* perm) cat ”)*p = (” cat PtwStr( 
ptwConj) cat ”)°p =>”; 

TStr(origTword) cat ” =” cat Sprint (word( (ptwConj ‘ perm ) 
“p )) cat ”(” cat TStr(ptwConj‘tword) cat ”)*p” cat 
mom, 


return true; 


elif #steps gt 2 then 
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sep; 
”Reduce in the following way:”; 
temp:=elements [1]; 
junk:=ReducePtw (temp) ; 
return true; 

end if; 
end if; 

while pos gt 1 do 

temparr:= temparr cat [elements | pos 
1; 


if #(elements|pos|]‘ parents) gt 0 


then 
pos:=elements [pos] ‘ parents 
[1]; 
else 
pos:=1; /* we made it to 
the top */ 
end if; 


end while; 


7G GEORGI OKO GRIGG GIGS IG RO IGG GGG GIGI GIGI OK kk ae sk ak 


”PROOE” ; 


OGG OIG GGG GGG GI OGG GGG GGG GIG GIGI IGG II IK ok ok 2k a ok kk 
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"Start with ” cat TStr(origTword) ; 


for i in [l..#temparr] do 


element:=temparr([#temparr — i + 1]; 
if #(element‘appliedRelations) gt 0 then 
parentName:=TStr(origTword) ; 
if #(element‘ parents) gt 0 then 
parentName:= elements | 
element ‘parents[1] |‘ 
name; 
end if; 
”Apply the following at t word 


oy) 


position cat Sprint ((element ‘ 


appliedRelations [1]) ‘applyAt) 


Cat. at 
(element ‘appliedRelations[1]) ‘info cat ” => ”; 
parentName cat ” =” cat PtwStr(element) cat ”.”; 
end if; 
end for; 


steps:=ReduceTs ((temparr [1] ‘tword)“*perm) ; 


if #temparr gt 0 and perm ne Id(N) then 


” 
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"We now have ” cat TStr(origTword) cat ” = 
” cat PtwStr(temparr|[1]) cat ”.”; 
ptwConj:=PIW( ((temparr[1l]) ‘perm)*perm, (( 


temparr|1]) ‘tword)*perm ); 


”Conjugate both sides by n=” cat Sprint ( 
perm) cat Ss" 3 
TStr(origTword* perm) cat ” =” cat PtwStr(ptwConj) cat 


+h aye er 
*: ? 


if #steps gt 1 then 


”Reduce in the following way:”; 


ptwConj:=ReducePtwToSize(ptwConj, # 


target T word) ; 
end if; 
” 
”m. 
p:= perm’ —1; 
*"Let p=” cat Sprint(perm*—-1) cat ” =n 


“|. ==>”; 
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”(” cat TStr(origTword*perm) cat ”)*p = (” cat PtwStr( 


” 


piwCon)) cat? *) "p= ” 


TStr(origTword) cat ” =” cat PtwStr(PIW( (ptwConj‘ perm) * 


” ” 


p, (ptwConj‘tword)*p )) cat =” eat: Sprint ( word( 


ptwConj‘perm )) cat ”(” cat TStr(ptwConj‘tword) cat ”)* 


” 


p cat 


I Oy 
. ’ 


return true; 
end if; 


if #steps gt 1 then 


”Reduce in the following way:”; 
temp:=temparr [1]; 
temp ‘ tword:=(temp ‘tword) * perm; 
temp ‘ perm:=(temp ‘ perm) * perm; 
junk:=ReducePtw (temp) ; 
return true; 

end if; 

if #temparr gt 0 then 
return true; 

end if; 

return false; 


end function; 
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/* testing ProveRelation function x/ 
[) ge coer ee 2+ | er GIGS | gd) | ey 
ProveRelation([1,4], [5, 3] ); /« 


x * y * x°2 takes t1t4 to t5t3 x«/ 


ProveRelation([1,2,20], [1]); /x 
Reduce in the following way: 
Id($)*t1t2t20 

Id($)*tl * / 


ProveRelation([1,19,2,20], [] ); /x 
Start with +t1t19t2t20 

Apply the following at t word position 1: 
Let p = Id($) belong to N. 

Id => 


Ct 
—_ 
or 
— 
No) 
I 


(t1t19)*p = (Id($))*p = 

PLE L Oy Tah). == 

t1t19t2t20 = t2t20. 

Apply the following at t word position 1: 

Let. pe (14, 2A: WSs. 9138s 13, D4, de, 24) (64 245%, 83 


10)(12, 15, 19, 20, 22) 


belong to N. 

t1t19 = Id => 

(t1t19)*p = (Id($))*p => 

t2t20 = Id($) => 

t2t20 = . */ /x This result was before I updated the 


functition x*/ 


[13220] Cex Qeyy ales fe: | Gy DGs 0: ] «ay 

ProveRelation(| 6, 16, 10 J], [1]); /x 

Conjugate by n= (15, 10, 20; 23. 15 ,-°6)(2,, 55°9:, 245 19, 
LBs des 990. TA, 

17)(4, 8, 11, 21, 18, 13). => 

(t6t16t10)*n = t1t2t20. 

Reduce in the following way: 

Id($)*t1t2t20 

Id($)xtl 


Colt 2E 20) p= (al) pS 


t6t16t10 = Id($)(tl)*p. */ 
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FindEquivalentRelations ([1,2,1] ,[1,2,20]);/x« 
tlt 2h Sek ye. ey os eT SLIGO ye eee oy 


t1t2tl 


Se oe he De we IO.) yk BaD ae es oe 
y*« x -l*y 

CLG 251 ae ea eR Bo ee BOS 2020 ae 2 po? 

t1t2tl Hs ey ee ROD ey we RRL 220) ee De ay ee TD ey 
* xX 

tel 2 ee ay ee Se oe eS 2 OF ay ee a ee 
«/ 


ProveRelation ([1,2,1],[1,2 ,20]); 

/* Start with t1t2tl 

Apply the following at t word position 1: 

Let p= (1, 19)(25 15) (34 8) (45 12): sy. 23) 06s 16)-(7 5 13) 
20)(10, 24)(11, 

17)(14, 21)(18, 22) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl =yx*x * y * x°2 * y * x°-1t12t3 => 

t1t2tl =y * x * y * x92 * y « x°—lLxtl2t3t2t1. 

Apply the following at t word position 2: 

Mer peat: BOs “Oy, Sty dae 20: Rn Ba Ly. Ts CAB 125 
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24 ABP es 22s D1, 

11)(15, 23, 19, 16) belong to N. 

Lemma 3: t4t8 = yx°2yx°2ytl9 ==> 

(E408 "ps Oe eked ae OD & ytlO) “ps 

t3t2 =x * y * x°-l * y * x°2 * ytl6 == 

yore X * y * XQ & y & x°-l *& t12t38t2t1 = x°-1l * y * x * yx 
t6tl6tl. 

Apply the following at t word position 1: 

eh “poi QA 2 YZ 38 a. Ahoy 206s 19) (73 Tees Ao 

10)(11, 14) (12, 

13)(15, 16)(21, 22) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t6 = x°2 * y * x°2t3t17 == 

x°-l * y * x * y * t6t16tl = x°2 * y * x°2 * y * xX * y * xX 
“—Let3t17t16t1. 

Apply the following at t word position 2: 

Let p. 3 (2% 220 Ly Te Oo... bay. OS ie Os I Ps. Th. 
20) (8, 16; 23, 24, 

21) belong to N. 

Lemma 3: t4t8 = yx°2yx*2ytl9 ==> 


(h4Ab8 Op ay Cyr eae ee Se) 
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t17t16 = x*-1 * y * x°2t19 => 

x°2 * y * x°2 * y * x * y * x°-l *« t3t17t16tl = x * y * x°2 
* y * x —lxtl5t19t1. 

We now have t1t2t1 =x * y * x°2 * y * x°—1*t15t19t1. 

Conjugate both sides by n = (1, 20, 15)(2, 9, 19)(3, 7, 14) 
(4, 11, 18)(5, 24, 

16)(6, 10, 23)(8, 21, 13)(12, 22, 17). ==> 

t20t9t20 = y *« x°-2 * yxtl1t2t20. 

Reduce in the following way: 


y * x°-2 * yxet1t2t20 


24).(65..23, 10) (83. 13; 
21)(12, 17, 22) =n*-1. => 
(F20t9t20) "p= iy * "2 = yet 162020)? pS 
C1, = sc ay ee ye ETI Sy es OD oe oy ( 


t1t2t20)*p. */ 


ProveRelation ([1 ,2 ,1] ,[1]); 
/*Start with t1t2tl 


Apply the following at t word position 1: 
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Let p = (1, 19)(2, 4)(3, 23)(5, 21)(6, 24)(7, 13)(8, 10)(9, 


17)(11, 15)(12, 
18)(14, 16)(20, 22) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


tl =x * y * x°2 * y * x°-1l * yt2tl10 => 


tlt2tl =x * y * x°2 * y * x°-1 * yxt2t10t2t1. 


Apply the following at t word position 2: 


eh pS (1 23) 18s P(e 14 B05 BY (3) 19% By 12)'(A4. 10; 


22, 16)(6, 15, 7, 
17)(9, 13, 11, 24) belong to N. 
Lemma 3: t4t8 = yx°2yx°2ytl9 ==> 
Chats pS ae 4! aye ee LO) Np 


t10t2 =y * x°2 * y * x * y * x°-1t5 == 


x * y * x°2 * y * x°-l * y * t2t10t2t1 = y *« x°-1l * y * x 


“2*t1l0t5tl. 


Apply the following at t word position 1: 


Let p= (1, 16, 12, 3, 2, 23)(4, 24, 9, 8, 17, 7)(5, 19, 


Lis Wey 213-20) (65. 1. 
14, 11, 13, 22) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
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t10 = x°-2 * y * xt24t17 = 

y*« x -l * y * x°2 * t10t5t1l = yxt24t17t5t1. 

Apply the following at t word position 4: 

Let p= “1s: 19 (2 Tei BVA. DAN Se 23) (65 De Vrs, 13) Cos 
20)(10, 24)(11, 

17)(14, 21)(18, 22) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl =y x* x * y * x°2 * y * x°-1t12t3 => 

y *« t24t17t5tl = x *« y * x°2 * y * x°-1xt9t6t1l2t12t3. 

We now have t1lt2tl =x * y * x°2 * y * x*—1*t9t6t12t12t3. 

Conjugate both sides by n= (1, 4, 12, 11, 15)(3, 7, 10, 
2An SDB) O, 21 8a 1B, 

O93 LO, 22 Tey ys es 

t4t2t4 = x°-1l * y * x°2 * y * xxt19t5St1l1t1i1t7. 

Reduce in the following way: 

x°-l1 * * x°2 * y * x*xtl9t5t11t11t7 

x°—-l * * x°2 * y * xxtl9t17t11t7 


* x°2 * y * xxtl9t7 


< <— << < 


* xX°2 * y * xx*tl 
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Weber = Ly 1b he: 12 A), 8 Ae. De 7) oe Oe Als Tse 
DEVO At AG 2 

19) antl. = 

(t4t2t4)"p = (x°-1 * yo * x°2 4 -y & x*tl)“p => 

t1t2tl =x * y * x°2 * y * x°-l*tl5 = x°-1l * y * x°2 * y * 


xb) 3) pa ey 


ProveRelation([12, 9], [ 1,3 ]); /* 

Start with +t12t9 

Apply the following at t word position 1: 

Let p= 11g: Bs, 25-940 4) 3s 6, Tay 24 TANG B55 21s. TOs 
Wi 2y, 2051s 22. 29} 

belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl2 =x « y * x°-l * y * x * y * xtlt21 => 

t12t9 =x * y * x°-l * y * x * y * x * t1t21t9. 

Reduce in the following way: 

x * y * x°-l * y * x * y * x*t1t21t9 


Ke yo a eal ey ek eye RREL ES ¥/ 


/*Proof Ntlt4, Nt1t15, Nt1t17, Nt1t20, Nt1t18 iy. 8] 
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See above x/ 

ProveRelation([{1,4], [ 1,3 ]);/* 

Start with t1t4 

Apply the following at t word position 1: 

Let. p= (15 19) (25-4) 085 -23)(55, 2196, 24) (74- 138)-(85 10) (9; 
17) (11, 15)(12, 

18)(14, 16)(20, 22) belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl =x * y * x°2 * y * x°-l * yt2t10 = 

tlt4 =x * y * x°2 * y *« x°-l *« y * t2t10t4. 

We now have tlt4 = x * y * x°2 * y * x°-1 * yxt2t10t4. 

Conjugate both sides by n = (1, 12, 2)(3, 23, 16)(4, 9, 17) 
(55 D0. 21764. 14, 

13)(7, 24, 8)(11, 22, 15)(18, 20, 19). => 

t12t9 =x * y * x°-l * y * x * y * x«xtlt21t9. 

Reduce in the following way: 

x * y * x°-l * y * x * y * x*t1t21t9 


x * y * x°-l * y * x * y * xx«t1t3 
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TAN ts Oy 2A MCLE. bo 
22018 9 20) =n 1, 
(b1200 9 pr ae er SL Ee oe EL) pp eS 
tlt4 =x * y * x°2 * y * x°-l * yxt2t16 =x * y * x°-l * y 


Sey a CRIS). pa. ey 


ProveRelation([1,4],[ 23, 2, 12, 5 ]);/x 

Start with t1t4 

Apply the following at t word position 1: 

Let p= (1s 19) (25 La)t8 >. 8) C44 12)(5-,.228) (65. HeVC7 4 13):C9, 

20)(10, 24)(11, 

17)(14, 21)(18, 22) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl =y * x * y * x°2 * y * x°-1t12t3 => 

tlt4 =y * x * y * x°2 * y * x°-l * t12t3t4. 

Apply the following at t word position 3: 

Let p: = (ye 224 12) (25. Oe EVES. 234 14) (4. VRS TO} (aS 8: 
21):(6, 13% LO) CT, 16; 

24)(11, 20, 15) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
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t4 = y * x°-2 * y * x * ytl8&t21 = 

yo eo eA ee Do ye eS oe LO i= Cy ee 2) 2s 
t3t4t18t21. 

We now have t1lt4 = (y * x°2)*2*t3t4t18t21. 

Conjugate both sides by n = (1, 19)(2, 4)(3, 23)(5, 21) (6, 
24)(7, 13)(8, 10)(9, 

17)(11, 15)(12, 18)(14, 16)(20, 22). => 


t19t2 


(SSR: ee Dette Tato. 
Let p = (1, 19)(2, 4)(3, 23)(5, 21)(6, 24)(7, 13)(8, 10)(9, 
17) (11, 15) (12, 
18)(14, 16)(20, 22) = n*-1. => 
ChISt2) p= Ce Ho) & 4) DRL 2ST 201 2t5 pS 
tltd = (y * x°2)*2et3t4t18t21 = (y * x°2)°2(t23t2t12t5)*p. 
=) 


/* End of ProveRelation function testing */ 


/* Proof of Lemma CC */ 
i(x*2)*ts|4|*ts[8)*ets [1] eq f(t # x * t°2 * x * £); 
f(x*-1 * y * x*-l * y * x * y * x *xxxx )«xts[4]*ts[8]* ts [1]; 


ts |4| ete [8] €q fy & x2 ey eee Pete (491s 


/* Proof of Lemma AA x/ 
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TPerm([9 ,2,22,19]) eq TPerm([1,4,20,15]); 


FindTwordWithReducing:=function(elements , tword, startAt) 


for i in [startAt..#elements] do 
/*i, #elements; */ 
/*x” About to reduce ”, elements[i]‘name; x*/ 
steps:=ReduceTs(elements [i] ‘tword) ; 
if #steps gt 0 then 
for step in steps do 
if 0 in step then continue 
; end if; 
if tword eq step then 
return 1; 
end if; 
end for; 
end if; 
end for; 
return QO; 


end function; 


ProveRightCosetRelation:= function(origT word, targetTword ) 
elements:=|PIW(Id(N) , origTword) |; 


elements:=ApplyRelationsToElements (elements) ; 
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temparr:=|]; 
pos:=1; 
pos:= FindTwordWithReducing(elements , targetT word, 
1); 
while pos eq 0 do 
start:=#elements ; 
elements:=ApplyRelationsToElements (elements 
); 
pos:= FindTwordWithReducing (elements , 
targetTword, start); 


end while; 


if pos eq 1 then /* we found it right away x*/ 
tempTword:=elements [1] ‘tword; 
steps:=ReduceTs(tempTword) ; 
if #steps gt 2 then 
Sep ; 
”Reduce in the following way:”; 
temp:=elements [1]; 
junk:=ReducePtw (temp) ; 
return true; 


end if; 
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end if; 
while pos gt 1 do 
temparr:= temparr cat [elements | pos 
1; 


if #(elements|pos|]‘parents) gt 0 


then 
pos:=elements [pos] ‘parents 
[1]; 
else 
pos:=1; /* we made it to 
the top */ 
end if; 


end while; 


7 ORR GEORGI GK IG GO GGG GG GIGI GGG OG OGG GG GGG GIG GIGI OI kk ak ak 


” PROOE” ; 


7 OGRE GK IG GOI IGG GI GEOG OIG RG OIG GG GGG GIGI GIGI I kk ae ak ak 


"Start with ” cat TStr(origTword) ; 


for i in [l..#temparr] do 


element:=temparr([#temparr — i + 1]; 
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if #(element ‘appliedRelations) gt 0 then 
parentName:=TStr(origTword) ; 
if #(element‘ parents) gt 0 then 
parentName:= elements | 
element ‘parents[1] |‘ 
name; 
end if; 
”Apply the following at t word 
position ” cat Sprint ((element ‘ 


appliedRelations [1]) ‘applyAt) 


Gate es 
(element ‘appliedRelations[1]) ‘info cat ” = > ”; 
parentName cat ” =” cat PtwStr(element) cat ”.”; 


end if; 
end for; 
steps:=ReduceTs(temparr [1] ‘tword) ; 


if #steps gt 1 then 


”Reduce in the following way:”; 
temp:=temparr [1]; 
temp ‘ tword:=(temp ‘tword) ; 


temp ‘ perm:=(temp ‘ perm) ; 
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junk:=ReducePtw (temp) ; 
return true; 

end if; 

if #temparr gt O then 
return true; 

end if; 

return false; 


end function; 


/* Prove that Ntlt3 = Nt7t4 */ 

ProveRightCosetRelation([{1,3], [1,3,7]);/* 

Start with t1t3 

Apply the following at t word position 1: 

Let p= (15 19)(25 15) (34 8) (4, 12): sy. 23) (65 16)-(7 5 13) 
20)(10, 24)(11, 

17)(14, 21)(18, 22) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl =y x* x * y * x°2 * y * x°-1t12t3 => 

tlt3 =y * x * y * x°2 * y * x*—1etl2t3t3. 

Apply the following at t word position 1: 


Let p = (1, 18, 15)(2, 11, 4)(3, 7, 6)(5, 16, 14) (8, 28, 
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TO): (9. 4.0% D2 (13s: 24, 

21)(17, 22, 20) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl2 = x°2 * y * x * y * x°-l * yt2t23 => 

yore X * y * XQ & y &* x°-l * t12t38t38 = x°-l * y * x°2 * yx 
$2t23t3t3. 

Apply the following at t word position 2: 

Teh ps1 Ag DA DO BY 2 21s TOs. Bae 22 Ele. lds, 
10,. 18, .14,-°9).08, 15, 

13, 17, 16, 12) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t23 = y * x°-l * y * x * y * x°-—2t24t15 == 

x°-l * y * x°2 * y * t2t23t3t3 = x°-2 * y * x°2x 
$8t24t1l5t3t3. 

Apply the following at t word position 2: 

Liet-cp: = (Ly. “6. ey 2383-05 TOS lis, OS. Da Oe 6 aes ne 
tay D250 12) (4 13, 

18, 21, 11, 8) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
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t24 =y * x°2 * y *« x°-l * y * xtl3t4 => 

x°-2 * y * x°2 * t8t24t15t3t3 = y * x°-l * y * x°2x 
t19t13t4tl5t3t3. 

Reduce in the following way: 

y *x x°—-l * y * x°2etl19tl3t4t15t3t3 

yx x°-l * y * x°2et7t4tl5t3t3 

y *« x°-l * y * x°Q*et7t4t21t3 


y * x°-l * y & x*2et7t4%/ 


/* Prove Nt1t3t7 belongs to DC [1,3] */ 

ProveRelation ([{1 ,3] ,[1,3,7]);/* 

Start with t1t3 

Apply the following at t word position 1: 

Let. p= (15-19)(2.. £3). 2Itay Tey Lye. 8) ti 5s Laie: 
15)(10, 23) (12, 

20)(14, 24)(17, 22) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl = x°-1 *« y * x°2t11t6 = 

tlt3 = x°-l *« y « x°2et1l1t6t3. 


Apply the following at t word position 3: 
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Let i (1g 21g 825 5p 18 By 13. Oe. 10 7s. 6) Oe 
8. Tes Ta ON (% 15: 

16, 11, 24, 20) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t83 =x * y * x°-l * y * x * y * xt23tl = 

x°-l * y *« x°2 * t11lt6t3 = x*2 * y * x°2 * y * x * y * x*-l 
#- VRELatlLitZotl 

We now have t1t3 = x°2 * y * x°2 * y * x * y * x°-l * yx 
C1 3G L725 tL . 

Conjugate both sides by n= (1, 7, 19, 13)(2, 14, 20, 8)(3, 
18). 265. 11) (Ay 23. 

9, 6)(5, 15, 24, 22)(10, 17, 21, 12). => 

t7t18 = (x°-1l * y * x°2)*2et1t21t9t7. 

Reduce in the following way: 

Cx" =) oy ae x" 2)" Det LF 214967. 


(Sale ye 692) Det t3t7 


9, 23)(5, 22, 24, 
15)(10, 12, 21, 17) =n*-1. => 


CETL 8) p= (CL Se oy eA) Det Lae 4) pS 
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TEER Se SEO ah Pe RD oe A oe oe Sy ee ee ye Ot Ded pe 5 
“| * y x 


2) 2h) pe. ey 


/* Output after a few minor modification some functions */ 
ProveRightCosetRelation([1,3], [2,23,9]); 


COCCI COCCI CCCI CCCI CCCI CCI I ICICI I I KCK kk 


Looking for relations to apply to t1t3 
Found 12 


L7Y(U1 15 )C125, 
18)(14, 16)(20, 22) belong to N. 
Lemma 3: t19 = yx°2yx*-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl =x * y * x°2 * y * x*-1 * yt2t10. Apply at position 1. 
Found a new name: x * y * x°2 * y * x°-l *« yxt2t1l0t3 


20)(10, 24)(11, 
17)(14, 21)(18, 22) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
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tl =y * x * y * x°2 * y * x°-1t12t3. Apply at position 1. 
Found a new name: y * x * y * x°2 * y * x°—1*t12t3t3 


14)(10, 21)(11, 
18)(12, 17)(15, 22) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl =y * x * y * x°-2 * yt9t14. Apply at position 1. 
Found a new name: y * x * y * x°-2 * yxt9t14t3 


15)(10, 23) (12, 
20)(14, 24)(17, 22) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl = x°-1 * y * x°2t11t6. Apply at position 1. 
Found a new name: x*—l * y * x°2«xt11t6t3 


18)(10, 16)(11, 
20)(12, 15)(14, 23) belong to N. 
Lemma 3: t19 = yx°2yx*-2yt4t8. => 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
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tl = y * x°2 * y * x°2 * yt22t5. Apply at position 1. 

Found a new name: y * x°2 * y * x°2 * yxt22t5t3 

Let ps = lg AD B85 LOA, COTS: Th VES" ATICGs Tat 10: 
T2V( 14 WET CLG 5 

18)(20, 23)(22, 24) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 = x°-2 * y * x°-2t6t1l1. Apply at position 2. 

Found a new name: x°—2 * y * x°—2«t13t6tl1l 


23, 18, 14, 19)(7, 15, 

16, 11, 24, 20) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t8 =x * y * x°-l * y * x * y * xt23t1. Apply at position 
2. 

Found a new name: x * y * x°-l * y * x * y * xxt21t23tl 

Let p = (1, 21, 20, 16)(2, 10, 19, 3)(4, 7, 15, 14)(5, 17, 
oe TI (6L 19s 84; 

18)(8, 22, 13, 9) belong to N. 


Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 
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(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 = x°2 * y * x°-1t7t22. Apply at position 2. 

Found a new name: x°2 * y * x°—1*t1l0t7t22 

Let p = (1, 21, 18, 23)(2, 8, 20, 14)(3, 12, 5, 19)(4, 16, 
DO. TON Ge Tie 

15)(9, 24, 11, 13) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 =x * y * x°-l * y * x°2 * ytl6t20. Apply at position 2. 

Found a new name: x * y * x°-l * y * x°2 * yxt16t16t20 

Létp = (1s (20s 11s. 105. 2y 24) (3 1%: 16, 20; 6.19) (4, 14, 
125. 13:95. Bes 18s 

23, 22, 8, 18) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t8 = y * x°-2 * y * x * ytl4t18. Apply at position 2. 

Found a new name: y * x°-2 * y * x * yxt7t1l4t18 


(t1)*p = (Id($)t7t19)*p ==> 


tl = Id($)t7t19. Apply at position 1. 
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Found a new name: t7t19t3 


16, 17, 13, 15) belong to N. 

tl = t7t19 => 

($1) "p= CT (Si trt19) “p= 

t3 = Id($)t9t21. Apply at position 2. 
Found a new name: t1t9t21 
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Looking for relations to apply to x * y * x°2 * y * x°-l * 
y*xt2t10t3 


Found 20 


1B - 706) 19. "10's 
11)(12, 13, 22, 23) belong to N. 
Lemma 2: ¢19t9 = yx*—-lyt1l2tll = 
(t19t9)°p = (y * x*-1 * ytl2tll)*p = 
t10t3 = y * x°-2 * yt13t6. Apply at position 2. 


Found a new name: x * y * x°2 * y * x°2 * yxt2t13t6 
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6) (by oT 144. Bay 21) 
belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t2 =y * x°2 *« y * x*-l * y * xt4t6. Apply at position 1. 


Found a new name: y * x°2 * y * x * y * x°-l * y*t4t6t10t3 


10)(8, 16, 13)(9, 18, 
11)(12, 17, 15) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t2 =x * y * x°-l * y * x°2 * ytltl6. Apply at position 1. 


Found a new name: t1tl6tl0t3 


16) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t2 =y * x°2 * y * x * y * x°-1t12t5. Apply at position 1. 
Found a new name: y * x°-l * y * x°2«xt12t5t10t3 
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POI(6s. AD. 28)(85: 21s 

13)(12, 22, 17) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t2 = x°-2 * y * x°-—2t11t21. Apply at position 1. 

Found a new name: (x°—l * y * x°—1)°2«t11t21t10t3 

Let p = (1, 20)(2, 19)(3, 10)(4, 15)(5, 23)(6, 24)(7, 14) 
(8, 13)(9, 22) (11, 

17)(12, 18)(16, 21) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t2 = x°-l * y * x * y * x°2 * ytl5t13. Apply at position 1. 


Found a new name: (y * x)°2*t15t13t10t3 


19) (137 22) (14, 
18)(17, 21)(20, 24) belong to N. 
Lemma 3: t19 = yx°2yx*-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl0 =x * y * x°-2 * y * x * yt7tl2. Apply at position 2. 
Found a new name: y * x°-l * y * x * y * x°2 * yxt8t7t12t3 
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18 1G LO. PO's 

11)(12, 13, 22, 23) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl0 =y « x°2 * y * x * y * x°-1t5t20. Apply at position 2. 

Found a new name: y * x°-l * y * x°2«xtl0t5t20t3 

Let p= (15. 16) 20; °21)(@, 3, 19, LOY, 14, 15, 7) (oy 11, 
23. 17) (6, 18, 24; 

12)(8, 9, 13, 22) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t10 = x*-1 * ytl4t9. Apply at position 2. 

Found a new name: x * y * x°*-2 * y * x*t21t14t9t3 


125 238: 204 “7105. 16, 
24, 17, 14, 19) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t10 = x * y * x°-1l * y * x°2 * yt21tl. Apply at position 2. 


Found a new name: t3t21t1t3 
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10, 18, 21, 20)(6, 15, 
14, 11, 13, 22) belong to N. 
Lemma 3: t19 = yx°2yx*-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t10 = x°-2 * y * xt24t17. Apply at position 2. 
Found a new name: (x2 * y)°2«t14t24t17t3 
Let p = (1, 21)(2, 5)(3, 19)(4, 6)(7, 15)(8, 11)(9, 13)(10, 
12) (14, 17)(16, 
18)(20, 23)(22, 24) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t3 = x°-2 * y * x°-2t6tll. Apply at position 8. 


Found a new name: (x*—l * y * x°—1)*2«t24t22t6t11 


08. 18) 14s POV (7. 1s. 

16, 11, 24, 20) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 =x * y * x°-l * y * x * y * xt23t1. Apply at position 
3. 


Found a new name: y * x°-l * y * x*t8t4t23t1 
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Let p = (1, 21, 20, 16)(2, 10, 19, 3)(4, 7, 15, 14)(5, 17, 
8). 16x. 19s Sa 

18)(8, 22, 13, 9) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t38 = x°2 * y * x°-1t7t22. Apply at position 3. 

Found a new name: x°2 * y * x°-2 * y*xtl4t9t7t22 

Let p = (1, 21, 18, 23)(2, 8, 20, 14)(3, 12, 5, 19)(4, 16, 
09. TON Ga Ute Fe 

15)(9, 24, 11, 13) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 =x * y * x°-l *« y * x°2 * ytl6t20. Apply at position 38. 

Found a new name: +t3t2t16t20 

Let p = (1, 21, 11, 10, 2, 24)(3, 17, 16, 20, 6, 19)(4, 14, 
125. VB Os By 4: Loy 

23, 22, 8, 18) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t38 =y * x°-2 * y * x «x ytl4tl8. Apply at position 3. 

Found a new name: x°2 * y * x°2 * y * x * y * x°-l * yx 


t6t20t14t18 


Let. p= (14, 2; Ay. WS. 9138) 135 14,16, 24) (6, 21, 0,83 


10)(12, 15, 19, 20, 22) 
belong to N. 
tl SA 7 tls Ss 
Ct) p= Cd (5) 67 oL9)p s 


t2 = Id($)t8t20. Apply at position 1. 
Found a new name: x * y * x°2 * y * x°-1l * yxt8t20t10t3 


TOO Mat AG (Ate. 
11, 21, 18, 13) belong to N. 
tl = t7t19 => 
(t1)*p = (Id($)t7t19)*p => 


t10 = Id($)t22t16. Apply at position 2. 
Found a new name: x * y * x°2 * y * x°-1l * yxt2t22t16t3 


16, 17, 13, 15) belong to N. 
tl = t7t19 => 


(t1)*p = (Id($)t7t19)*p ==> 


t3 = Id($)t9t21. Apply at position 3. 


Found a new name: x * y * x°2 * y * x°-1l * yxt2t10t9t21 
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Looking for relations to apply to y * x * y * x°2 * y * x 
“—1*t12t3t3 

Found 14 

Let p= Uy By 20, Oh 4. BY Oy-6y- 22> 23,10, 21) (7, 9: 
14, 18, 10, 11)(8, 12, 

16, 17, 13, 15) belong to N. 

20 SSS 

(t1tl)*pe= Cid (8)47) *p = 

t3t3 = Id($)t9. Apply at position 2. 

Found a new name: y * x * y * x°2 * y * x°—I1*t12t9 

Wee 61.01) TSS 2s. Ay ess. 8 100 Cas AT ca 0 2205-92) 
(It; 19 T2135. 4 

23)(14, 16, 21) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t12 =y * x * y * x°-2 * y * xt15t10. Apply at position 1. 


Found a new name: (x*-l * y * x°2)°2*t15t10t3t3 


10)(9, 19, 12)(13, 24, 
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21)(17, 22, 20) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl2 = x°2 * y * x * y * x°-l * yt2t23. Apply at position 1. 
Found a new name: x°—l * y * x°2 * yxt2t23t3t3 


7) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t12 = y *« x°-1t17t13. Apply at position 1. 


Found a new name: x°2 * y * x°-1l * y * x°2«t17t13t3t3 


Dll, 205 155.2955 19) 
belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t12 =x *« y * x°-l * y * x * y * xtlt21. Apply at position 


Found a new name: t1t21t3t3 


16)(12, 19) (13, 
24)(15, 17)(21, 23) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


tl12 =y *« x°-2 * y * x * yt22tl4. Apply at position 1. 


Found a new name: (y * x°2)°2«t22t1l4t3t3 
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Let p = (1, 21)(2, 5)(3, 19)(4, 6)(7, 15)(8, 11)(9, 13)(10, 


12)(14, 17)(16, 
18)(20, 23)(22, 24) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t3 = x°-2 * y * x°-2t6tl1l. Apply at position 2. 
Found a new name: y * x°2 * y * x * y * x°-l * yx 


t23t6t11t3 


232185. 14, LOVER, Lae 
16, 11, 24, 20) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t38 =x * y * x°-l * y * x * y * xt23t1. Apply at position 


2. 


Found a new name: t5t23t1t3 
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Let p = (1, 21, 20, 16)(2, 10, 19, 3)(4, 7, 15, 14)(5, 17, 
08. P16. 12.-Oe, 

18)(8, 22, 13, 9) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t38 = x°2 * y * x°-1t7t22. Apply at position 2. 

Found a new name: x°2 * y * x°2 * y * x«xt24t7t22t3 

Let p = (1, 21, 18, 23)(2, 8, 20, 14)(3, 12, 5, 19)(4, 16, 
22, 10)(6, 17, 7, 

15)(9, 24, 11, 13) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 =x * y * x°-l * y * x°2 * ytl6t20. Apply at position 2. 

Found a new name: x*—l * y * x * yxt6t1l6t20t3 

Let p = (1, 21, 11, 10, 2, 24)(3, 17, 16, 20, 6, 19)(4, 14, 

12s, BB Oy: 3B ee bos 

23, 22, 8, 18) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t38 = y * x°-2 * y * x * ytl4t18. Apply at position 2. 


Found a new name: (y * x°2)°2«t3t14t18t3 
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13) 0224, Bhim 22, 

15)(18, 20, 19) belong to N. 

tl = t7t19 => 

Chl) p= Cid CS) tr ol9) pS 

t12 = Id($)t24t18. Apply at position 1. 

Found a new name: y * x * y * x°2 * y * x°—1*t24t18t3t3 

Let-po (1, Sy 20 24, Ay 5) 585 2D, O38. TOK 210.17: & 
14, 18, 10, 11)(8, 12, 

16, 17, 13, 15) belong to N. 

tl = t7t19 => 

(th) Ap =" Old (3) tre L9 ) “ps 

t3 = Id($)t9t21. Apply at position 2. 

Found a new name: y * x * y * x°2 * y * x°—1*t12t9t21t3 
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Looking for relations to apply to y * x * y * x°-2 * yx 
t9t14t3 
Found 19 


DL) (9 «LT 18m D2: 
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19) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t9 = y * x°2 * y * x°-l * ytlt8. Apply at position 1. 


Found a new name: t1t8&tl4t3 


POCO. 16) C1, 

17)(13, 21)(18, 20) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t9 =y * x°-l * y * x * y * x°—-2t22t24. Apply at position 
1. 


Found a new name: (x2 * y)°2«*t22t24t14t3 


24) (6, 235 10) 85 135 
21)(12, 17, 22) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t9 =y * x * y * x°-2 * y * xt18t13. Apply at position 1. 
Found a new name: y * x°-l * y * x * y * x°2 * yx 


t18t13t14t3 
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Let p = (1, 15, 22, 2, 17)(3, 16, 8, 5, 7)(4, 20, 11, 19, 
OCUOs ts OS. 13. 91) 

belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t9 = x°-l * y * x * y * x°2 * yt20t5. Apply at position 1. 

Found a new name: x * y * x°2 * y * x°2«t20t5t14t3 


G3)(9 5 TBs 19) (13). Oi, 
24)(17, 20, 22) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t9 = y « xtl1t10. Apply at position 1. 


Found a new name: y * x * y * x°—l«xtl1t1l0t1l4t3 


23, 12, 21)(10, 19, 
14, 17, 24, 15) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t14 = x *« yt7tll. Apply at position 2. 


Found a new name: x°2 * y * x°-l * y * x°2«t21t7t11t3 
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Lets pS tie BS TOs Ba -27 WL) Oy 6 17 e 10) 0. 8G 95 
t4 18> 83. DATs 20; 

24, 11, 16, 15) belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl4 = y *« x°-l * y * x°2 * yt3t12. Apply at position 2. 

Found a new name: y * x * y * x°2 * y * x°2 « yxt24t3t12t3 

Let p = (1, 8, 15, 24)(2, 21, 12, 13)(3, 18, 7, 20)(4, 10, 
09. Toi 7s. 23. 

11)(6, 19, 14, 9) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t14 = y *« xt10t15. Apply at position 2. 


Found a new name: y * x * y * x°—1«tl4t10t15t3 


18y(1l, 21312. 
16)(14, 19)(15, 23) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl4 =y *« x°2 * y *« x°-1l * yt24tl1. Apply at position 2. 


Found a new name: t6t24t1t3 
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Let p = (1, 8, 4, 23)(2, 16, 11, 13)(3, 9, 21, 15)(5, 19, 
14, 22)(6, 18, 24, 

12)(7, 20, 10, 17) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl4 = y *« x°-2 * y « x°-2 * yt23t4. Apply at position 2. 

Found a new name: x*-l * y * x°2 * yxt3t23t4t3 

Let. p= (14, 21) (2% 5) (837 19):045 -O)(7,. TS) CS. Ty (95 13910, 
12) (145. 27) (6s 

18)(20, 23)(22, 24) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 = x°-2 * y * x°—2t6tll. Apply at position 3. 

Found a new name: x*—-l * y * x * y * x*t8t12t6t11 


93.18, 14, (1£0)( 7, 154 

16, 11, 24, 20) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t8 =x * y * x°-l * y * x * y * xt23t1. Apply at position 
3. 


Found a new name: x°2 * y * x°-2 * y*t24t2t23t1 
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Let p = (1, 21, 20, 16)(2, 10, 19, 3)(4, 7, 15, 14)(5, 17, 
OS: Ti(6 1204, 

18)(8, 22, 13, 9) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 = x°2 * y * x°—-1t7t22. Apply at position 3. 

Found a new name: y * x°—-l * y * x*xt5t20t7t22 

Tet pe (ig Dis DS 3-88) (2. 8 y 205 14) ).. 125, Be 1943. 16: 
22, 10)(6, 17, 7, 

15)(9, 24, 11, 13) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 =x * y * x°-l *« y * x°2 * ytl6t20. Apply at position 38. 

Found a new name: x * y * x°2 * y * xX * y * x°-l * yx 
$13t¢15t16t20 


Lee pS is: BT y dk, Os By 485. 17, 6 30. Be 9) (4. A, 


23, 22, 8, 18) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t3 =y * x°-2 * y * x * ytl4tl18. Apply at position 3. 
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Found a new name: x°—1*t10t18t14t18 


6)(7, 21, 16)(11, 20, 
12)(14, 24, 23) belong to N. 
tl = t7t19 => 
(tL) Ap e= (ld (S)trt19.) “p= 
t9 = Id($)t21t15. Apply at position 1. 
Found a new name: y * x * y * x°-2 * yxt21t15t14t3 


11) (13, 20)(16, 
17)(18, 21)(22, 23) belong to N. 
tl = t7t19 => 
Ctl) p= (Ids) tr 619.) "p= > 
t14 = Id($)t2t8. Apply at position 2. 
Found a new name: y * x * y * x°-2 * yxt9t2t8t3 


14, 18, 10, 11)(8, 12, 
16, 17, 13, 15) belong to N. 
tl = t7t19 => 
CEL ype CdS 7 oy p= 


t3 = Id($)t9t21. Apply at position 8. 
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Found a new name: y * x * y * x°-2 * y*xt9t14t9t21 
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Looking for relations to apply to x°-l * y * x°2«t11t6t3 

Found 19 

het. p. = (lg Ti 18) (25-155 A) (35-104. 8) a. Gy FC8, 225.-20) 
City, 12 19) 3 

24)(14, 21, 16) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tll = x°2 * y * x°2t2t3. Apply at position 1. 


Found a new name: y * x * y * x°—2«t2t3t6t3 


1T4AN(O. “205. V8) C11. 22), 
19)(13, 23, 16) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tll = x°-2 * y *« xt1t24. Apply at position 1. 


Found a new name: t1t24t6t3 


370 


belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


tll = x°-1 * yt9t16. Apply at position 1. 
Found a new name: x*—-l * y * x * yxt9t1l6t6t3 


95) bs Day 1h. #7) 

belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tll =x *« y * x°-2t4t13. Apply at position 1. 

Found a new name: x°2 * y * x°2 * y * x*t4t13t6t3 

Let p= (1, 17) (25° -20)(3, 21) (4, 18)(5, 7) (6s 10) (85-14); 
15)(11, 19) (12, 

22)(13, 23)(16, 24) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tll = y *« x*-1t18t14. Apply at position 1. 

Found a new name: x * y * x°-2 * y * x*t18t14t6t3 

Let p = (1, 24, 15, 8)(2, 13, 12, 21)(3, 20, 7, 18)(4, 16, 
99. DO) (511, 03: 
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17)(6, 9, 14, 19) belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t6 = x°-2 * y * xtl6tl. Apply at position 2. 

Found a new name: t10t16t1t3 

Let p = (1, 24, 22, 14, 9, 23)(2, 21, 17, 7, 18, 16)(3, 11, 
(Se BO. 10.90 

8, 15, 5, 19, 6) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t6 = y * x°2 * y * x°-1 * yt8t15. Apply at position 2. 

Found a new name: x * y * x°*-l * y * x*t5t8t15t3 


Ore a 1. MCs. ABS 
8, 22, 23, 15) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t6 = y * x°-l * y * x * y * x°—2t5t22. Apply at position 2. 
Found a new name: x * y * x2 * y * x°2*t1l6t5t22t3 


10) (11, 14) (12, 
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13)(15, 16)(21, 22) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t6 = x°2 * y * x°2t3t17. Apply at position 2. 
Found a new name: y * x * y * x°—2«t6t3t17t3 


19)(12, 23, 22, 13) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t6 =y * x°-l * y * x°2 * y * xt7t2. Apply at position 2. 

Found a new name: y * x°-2 * y * x°2«t23t7t2t3 

Leb posi 21) C25. Say 19) (4 ONC Te TS) 8s. LEO -T38) C10. 
£2) CTA. TT et TGs 

18)(20, 23)(22, 24) belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 = x°-2 * y * x°-2t6tl1l. Apply at position 8. 


Found a new name: x°2*t21t1ll1t6tll 


16, 11, 24, 20) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t3 =x * y * x°-l * y * x * y * xt23t1. Apply at position 


3. 


Found a new name: x°2 * y * x°2 * y * x * y * x°-l * yx 


t13t17t23t1 
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Let pS (1s, 2h DOs TEs yn 119»: S) fay Fey TAS. 17 


OS. Tif Gy. 12. Ok, 
18)(8, 22, 13, 9) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t3 = x°2 * y *« x°-1t7t22. Apply at position 3. 
Found a new name: y * x * yxt7t12t7t22 


eh - pe (1 DV y 8} 28) (2, By BOs 14) 3)... 125, By 199145. 16; 


22. WO) CO... Te oh 
15)(9, 24, 11, 13) belong to N. 
Lemma 3: t19 = yx°2yx*-2yt4t8. => 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t3 =x * y * x°-l * y * x°2 * ytl6t20. Apply at position 38. 


Found a new name: (y * x*—2)°2*t23t18t16t20 
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Leebs S(g Dlg Thy 10 Se. 94) (3547 16 20s 6a 19) A 
12 TAs OS Bl Lo 

23, 22, 8, 18) belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 =y * x°-2 * y * x «x ytl4tl8. Apply at position 3. 

Found a new name: x * y * x*-l * y*xt5t15t14t18 

Let p= (1; Wy Ay 25, 12) (3, 24, 7, 28, 10) (55 16, 21, 6, 
PS)C9¢ 18s 18s 174 

22) belong to N. 

th] 471s Ss 

Ci) op. SI dS) tt 9.) pss 

t11 = Id($)t23t17. Apply at position 1. 


Found a new name: x*—l * y * x°2«t23t17t6t3 


11)(13, 18, 14, 
17) (19, 24, 20, 23) belong to N. 
tl = t7t19 => 
Ct)“ pc= (CaS) t7t19 ) “po 
t6 = Id($)t12t24. Apply at position 2. 


Found a new name: x*—l * y *« x°2Q«t11t12t24t3 
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Lei eS (1s Be BOs. DA, Ap VCs, OG. 2-98, 19. OTC. 
14, 18; 104. 11) (8, 12, 

163. 174. 1315) belong to N, 

th] tle S 

Chl) pS Cid ta ro) pes 

t3 = Id($)t9t21. Apply at position 38. 

Found a new name: x*—l *« y * x°2«t11t6t9t21 


OK AK 2K OK 2K OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK 


Looking for relations to apply to y * x°2 * y * x°2 * yx 
$22¢5t3 

Found 20 

het: p= (ly 235: Ay By (25, Paes Ds 167 (84 Way 24s 9 )-Ch 22. 
14 19) (6, 125.24, 

18)(7, 17, 10, 20) belong to N. 

Lemma 2: ¢19t9 = yx*—-lyt12tll = 

(41909) p= Cy 9x Hb wt 21) *p. = 

t5t3 =x * y * x°2 * y « x°-1t24t16. Apply at position 2. 


Found a new name: y * x°-l * y * x * y * x*xt9t24t16 


17) belong to N. 
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Lemma 3: t19 = yx°2yx°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t22 = y *« x°-l * y * x°2 * ytl2t8. Apply at position 1. 

Found a new name: x * y * x°*-l * y * x*t12t8t5t3 

Let p = (1, 4, 17)(2, 15, 12)(3, 24, 8)(5, 7, 10)(6, 14, 
FAV (Oy 8s. 2O) 11s 19s 

22)(13, 16, 23) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t22 =x * y * x°—2t17t3. Apply at position 1. 

Found a new name: y * x * y * x°2 * y * x°2 « yxatl7t3t5t3 

Let p = (1, 4, 20)(2, 19, 22)(3, 5, 24)(6, 21, 23)(7, 10, 
14)(8, 13, 16)(9, 11, 

18)(12, 15, 17) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t22 =y *« x°2 * y * x°-l * y * xt20t13. Apply at position 


Found a new name: y * x°-2 * y * x°2«xt20t13t5t3 
Let p = (1, 4)(2, 11)(3, 21)(5, 14)(6, 24)(7, 10)(8, 23) (9, 
15) (12, 18)(13, 
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16)(17, 20)(19, 22) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t22 =y *« x°-2 * y *« x°-2 * ytlt23. Apply at position 1. 


Found a new name: t1t23t5t3 


SO) (ew 19 22.15. 32.0) 
belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t22 = x°2 * y * x°-l * y * x «x yt9t6. Apply at position 1. 
Found a new name: x * y * x°*-2 * yx*t9t6t5t3 


(Oy Gx We TAS, 
6, 19, 5, 15, 8) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t5 = x°2 * y * x°-l * y * x * yt6t4. Apply at position 2. 
Found a new name: x * y * x°*-2 * yxt5t6t4t3 
Let p = (1, 23)(2, 24)(3, 22)(4, 21)(5, 19)(6, 20)(7, 17) 
(8, 18)(9, 16)(10, 
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15)(11, 13)(12, 14) belong to N. 

Lemma 3: t19 = yx°2yx*°—-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t5 =x * y * x°-l * y * x * y * xt21t18. Apply at position 
2. 

Found a new name: (x°—l * y * x°—1)°2«t10t21t18t3 

Let p = (1, 23, 18, 21)(2, 14, 20, 8)(3, 19, 5, 12)(4, 10, 
92. 1.6) (6x. 155, 25 

17)(9, 13, 11, 24) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t5 = x°2 * y * x * y * x°-1 *« ytl0t2. Apply at position 2. 

Found a new name: (x*-l * y * x°2)°2*t8t1l0t2t3 

Let p = (1, 23, 4, 8)(2, 13, 11, 16)(3, 15, 21, 9)(5, 22, 
14, 19)(6, 12, 24, 

18)(7, 17, 10, 20) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t5 = y * x°-2 * y * x°-2 * yt8tl. Apply at position 2. 


Found a new name: t14t8t1t3 
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21, 18, 10, 19)(6, 22, 

13, 11, 14, 15) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t5 =y * x°-l * y * x * y * x°2t7t9. Apply at position 2. 

Found a new name: (y * x)*2«tl6t7t9t3 

Leb: pre (C1 DIA ab Cok LO 4 OTs le E85 Elg-(94. La Cro: 
12)(14, 17)(16, 

18)(20, 23)(22, 24) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 = x°-2 * y * x°-2t6tll. Apply at position 8. 

Found a new name: y * x°-l * y * x«tl6t9t6t1l 


08. 18) 14s POV (7. 1s. 

16, 11, 24, 20) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 =x * y * x°-l * y * x * y * xt23t1. Apply at position 
3. 


Found a new name: (x*—l * y * x°—1)*2«t10t19t23t1 
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Let p = (1, 21, 20, 16)(2, 10, 19, 3)(4, 7, 15, 14)(5, 17, 
8). 16x. 19s Sa 

18)(8, 22, 13, 9) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t38 = x°2 * y * x°-1t7t22. Apply at position 3. 

Found a new name: x * y * x°2 *« yxt21t1t7t22 

Let p = (1, 21, 18, 23)(2, 8, 20, 14)(3, 12, 5, 19)(4, 16, 
09. TON Ga Ute Fe 

15)(9, 24, 11, 13) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t3 =x * y * x°-l * y * x°2 * ytl6t20. Apply at position 38. 

Found a new name: (x°2 * y * x°—1)°2*t8t11t16t20 

Let p = (1, 21, 11, 10, 2, 24)(3, 17, 16, 20, 6, 19)(4, 14, 
125. VB Os By 4: Loy 

23, 22, 8, 18) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t38 =y * x°-2 * y * x «x ytl4tl18. Apply at position 3. 


Found a new name: y *« x°-2 * y*t14t17t14t18 
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Let p= (15225. 12) (2, 95 17) (Sy O35. 14) (4, 18, 19) (8, & 
21) (6, 13% 10)(7, 16; 

24)(11, 20, 15) belong to N. 

tlh] 71 =S 

(tl) po Cd (a ert 9) peas 

t22 = Id($)t16t4. Apply at position 1. 

Found a new name: y * x°2 * y * x°2 * yxetl6t4t5t3 

Let. p= (1s, 5s By OV (8) Oh BLY 154 e 165 (225 10) (75 113-8, 

12) (13, 17, 14, 

18)(19, 23, 20, 24) belong to N. 

tS] 47tls = 

CH) pc Ida) at 9) pss 

t5 = Id($)t11t23. Apply at position 2. 

Found a new name: y * x°2 * y * x°2 * yxt22t11t23t3 

Tet pe ls By, 0 Bay hy 75) (2, 63. B98. 19-421). (7,2 0, 
(4, 18. 10, 119% 124 

16, 17, 13, 15) belong to N. 

th 17 tl Ss 

(6) Ap =O (3) tre L9 > “p= 

t3 = Id($)t9t21. Apply at position 38. 

Found a new name: y * x°2 * y * x°2 * yxt22t5t9t21 


2K AK OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


Looking for 


Found 


20 
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relations to apply to x°-2 * y * x°—2«t13t6t1l 


92V 10s, 17, 


Lemma 


(t19t9)*p 


t13t6 
Found 


2s 


a 


21, 12) belong to N. 


t19t9 = yx*-lyt1l2tll = 


Cy & xa & yt 211) *p = 


y *« x°2 * ytl0t3. Apply at position 1. 


new name: x * y * x°2*tl0t3tl11 


22)(10, 17, 21, 12) belong to N. 


Lemma 3: 


(+19)° 


p 


t19 = yx°2yx°-2yt4t8. => 


(y * x°-2 * y * x°-2 * yt4t8)*p => 


t138 = y *« x°-l * y * x * y * x°2t23t2. Apply at position 1. 


Found a new name: y * x°2 * y * x * y * x°-l * yx 


t23t2t6t11 


Let p = (1, 24, 15, 8)(2, 13, 12, 21)(3, 20, 7, 18)(4, 16, 


O22 TOV (54 11s Bs, 


17)(6, 9, 14, 19) belong to N. 
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Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t6 = x°-2 * y * xtl6tl. Apply at position 2. 


Found a new name: x°2 * y * x°-l * yxt1l2t16t1t11 


13s. 12. Ws. GOstay 
8, 15, 5, 19, 6) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t6 = y * x°2 * y * x°-l1 * yt8t15. Apply at position 2. 


Found a new name: (x * y)*2*t2t8t15t1l 


65 185-00. MANET, 18. 
8, 22, 23, 15) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t6 = y * x°-l * y * x * y * x°—2t5t22. Apply at position 2. 
Found a new name: y * x°-l * y * x * y * x°2 * yx 


t19t5t22t11 


10) (11, 14) (12, 


13)(15, 16)(21, 22) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t6 = x°2 * y * x°2t3t17. Apply at position 2. 


Found a new name: t1t3t17t1ll 


19)(12, 23, 22, 13) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t6 =y * x°-l * y * x°2 * y * xt7t2. Apply at position 2. 


Found a new name: (x°—-l * y * x°—1)*2«t20t7t2t11 


(11; de WO (135. 93% 
24)(14, 21, 16) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tll = x°2 * y * x°2t2t3. Apply at position 3. 


Found a new name: t1t20t2t3 


14):(0's "205. 88) (L189, 
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19) (13, 23, 16) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tll = x°-2 * y * xt1t24. Apply at position 3. 


Found a new name: x°2 * y * x°-l * yxt1l2t11t1t24 


belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tll = x°-1 * yt9t16. Apply at position 3. 

Found a new name: y * x°—-2 * y * x°2«xt19t12t9t16 


93) (5, 21s 24 14, 7) 

belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tll =x * y * x°—2t4t13. Apply at position 3. 

Found a new name: x*—-l * y * x * y * x°—l*t17t18t4t13 

Let. p= (14,17 )(25. 20) 3... 21) (4y -18):(8% 7) (65. £0) (8s. Fass 
fyChin 10) (19: 
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22)(13, 23)(16, 24) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tll = y *« x*-1t18t14. Apply at position 3. 

Found a new name: x * y * x°2 * y * x°2Q*t18t2t18t14 

Let p = (1, 13, 19, 7)(2, 16, 15, 6)(3, 12, 8, 4)(5, 11, 
BS. AG) (Ox, Oar, “90: 

10)(14, 22, 21, 18) belong to N. 

tl = t7t19 => 

(Gl) op Ider tl ops 

t13 = Id($)t1t7. Apply at position 1. 

Found a new name: x°—2 * y * x°—2«tilt7t6tl1l 


11) (13, 18, 14, 
17)(19, 24, 20, 23) belong to N. 
tl = t7t19 => 
(oh) p = Cid (9) 7ti9 pies 
t6 = Id($)t12t24. Apply at position 2. 


Found a new name: x*—-2 * y * x°—2«t13t12t24t11 


13 )( 0's 08% “195 7, 
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22) belong to N. 

tl = t7t19 => 

(tlh) p= "CId Sy) 719) pp = 

411 = Id($)t23t17. Apply at’ position 3. 

Found a new name: x°—2 * y * x°—2«t13t6t23t17 


OK AK OK OK 2K 2K OK 2K OK OK OK KOK OK OK OK OK OK OK OK OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


Looking for relations to apply to x * y * x°-l* yx* x * y 
* x*t21t23t1 

Found 20 

Let p= iis, TA (Fo 8, 23 aS, 20 22. (TCV ae 20, 
13, 15)(6, 18, 24, 

12)(8, 19, 21, 17) belong to N. 

Lemma 2: ¢19t9 = yx*—-lyt1l2tll = 

ChI96S )" p= (ye ROS oe td 1) ps 

t21t238 =x * y * x°-2 * y * x°-1t6t14. Apply at position 1. 

Found a new name: x * y * x°2 * y * x°2 * yxt6tl4tl 

Leip: = (lg Oyo 204 "2ae Ay OV B20. 28. TO. Oy) On Oe 
Tay Wey 10 5--VI)85. 125 

16, 17, 13, 15) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
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t21 =y * x * y * x°2 * y * x°-1t5t12. Apply at position 1. 

Found a new name: t5t12t23t1 

Let p = (1, 5, 2, 6)(3, 9, 21, 15)(4, 16, 22, 10)(7, 11, 8, 
LCS, 07, 

18)(19, 23, 20, 24) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t23 =y *« x°2 * y * x * y * x°-1t16t12. Apply at position 


Found a new name: (x*—2 * y)°2*t9t1l6t12t1 

Let p = (1, 5, 4, 24, 20, 3)(2, 21, 19, 23, 22, 6)(7, 11, 
10, 18, 14, 9)(8, 15, 

13, 17, 16, 12) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t23 = y « x°-l * y * x * y * x°—2t24t15. Apply at position 


Found a new name: (x*—l * y * x*2)°2«t17t24t15t1 

Let p= (1, 5)(2, 10)(3, 18)(4, 14)(6, 9)(7, 11)(8, 22)(12, 
PT) (13s, IVY C15, 

24)(16, 20)(19, 23) belong to N. 


Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t23 = y *« x°2 * y * x°2 * ytl4t22. Apply at position 2. 

Found a new name: y * x°—-2 * y * x«xtl5t1l4t22tl 

Let p = (1, 5, 18, 16, 15, 14)(2, 7, 11, 6, 4, 3)(8, 19, 
P51 GOs Ie UT 

24, 22, 21, 20) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t23 =y * x * y * x°2 * y * x°-1t3t19. Apply at position 

Found a new name: t1t3t19tl 

het: p= (1 S595. DOP 8, 20, 14) Sy 4.5135 17)06s “18, 
Bas OVC Md Oa 

22)(15, 16, 19, 23) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t23 = x°-l * y * x * y * x°2 * yt13t20. Apply at position 


Found a new name: x°2 * y * x°-l * y * x°2«t19t13t20t1 


17) (11, 15) (12, 
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18)(14, 16)(20, 22) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl =x * y * x°2 * y * x°-1 * yt2t10. Apply at position 38. 


Found a new name: (x°—l * y * x°—1)°2*t20t11t2t10 


20)(10, 24)(11, 
17)(14, 21)(18, 22) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl =y * x * y * x°2 * y * x°-1t12t3. Apply at position 3. 


Found a new name: t1tl8t12t3 


14)(10, 21) (11, 
18)(12, 17)(15, 22) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl =y * x * y * x°-2 * yt9t14. Apply at position 3. 


Found a new name: (x * y)*2«t2t17t9t14 


PS LO 9S) (19%, 
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20)(14, 24)(17, 22) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl = x*-1 * y * x°2t11t6. Apply at position 3. 


Found a new name: (x*2 * y * x*°—1)*°2«t9t12t11t6 


18)(10, 16)(11, 

20)(12, 15)(14, 23) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl =y * x°2 * y * x°2 * yt22t5. Apply at position 3. 

Found a new name: y * x°-2 * y * x«t1l5t1t22t5 

Leb posi 21) C25. Say 19) (4 ONC Te TS) 8s. LEO -T38) C10. 
£2) CTA. TT et TGs 

18)(20, 23)(22, 24) belong to N. 

tl = t7t19 => 

Chl) pS Cid th )0741 9) pis 

t21 = Id($)t15t3. Apply at position 1. 


Found a new name: x * y * x°-l * y * x * y * x*tl5t3t23t1 
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6, 19, 5, 15, 8) belong to N. 

tl = t7t19 => 

(tl) p= "CId (3) t7 019) p ==> 

t23 = Id($)t17t5. Apply at position 2. 

Found a new name: x * y * x°-l * y * x * y * x*t21tl17t5tl 


Cy peer tude a cree GOs) peas 
tl = Id($)t7t19. Apply at position 3. 
Found a new name: x * y * x°-l * y * x * y * x*t21t23t7t19 


2K OK 2K OK 2K OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


Looking for relations to apply to x°2 * y * x°—-l*tl0t7t22 
Found 19 


10, 18, 21, 20)(6, 15, 
14, 11, 13, 22) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t10 = x°-2 * y * xt24t17. Apply at position 1. 


Found a new name: x°2 * y * x°2 * y * x*xt24t17t7t22 


Let p= (15. 28, 195-772, 16s. 154-6) (35-12 8) 4). y 11s 


23: “1704 GA. 90. 
10)(14, 22, 21, 18) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t7 =x * y * x°-2t3t4. Apply at position 2. 


Found a new name: t1t3t4t22 


24 T8).(8~ 015 5:10, 
11)(9, 16, 17, 14) belong to N. 
Lemma 3: t19 = yx°2yx*-2yt4t8. => 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
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t7 = x°-l * y * x * y * x°2 * yt5t15. Apply at position 2. 


Found a new name: x * y * x°-2 * y * x*t4t5t15t22 


15)(10, 12, 21, 17) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t7 =y * x°2 * y * x*-l * y * xt6t20. Apply at position 2. 


Found a new name: y * x * y * x°—1«xt12t6t20t22 
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Let p= (15 18 195-7) (2, OS, 18s 1OVGy Oy 21, 15) (4, 14; 
11, 24)(5, 12, 16, 

20)(6, 22, 8, 17) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t7 =y * x°-1t14t17. Apply at position 2. 


Found a new name: x°-2 * y * x * y*xt22t14t17t22 


Sy. Ley, “Ll 2k, 
20)(12, 23, 15, 14) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t7 =y * x * y * x°-2 * y *« xtl0tl18. Apply at position 2. 


Found a new name: x * y * x°2 * y * x°2Q«et18t10t18t22 


6)(9, 19, 22, 18, 
17) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t22 = y *« x°-l * y * x°2 * ytl2t8. Apply at position 3. 


Found a new name: (x°—2 * y)*2«*t9t1t12t8 
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Let p = (1, 4, 17)(2, 15, 12)(3, 24, 8)(5, 7, 10)(6, 14, 
1G. WS20) Cl. To. 

22)(13, 16, 23) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t22 =x * y *« x°—2t17t3. Apply at position 3. 


Found a new name: tltlitl7t3 


14) (85 18, “6).(9% “11s 
18)(12, 15, 17) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t22 =y *« x°2 * y * x°-l * y * xt20t13. Apply at position 


Found a new name: y * x * y * x°—1«t12t22t20t13 

Let p = (1, 4)(2, 11)(3, 21)(5, 14)(6, 24)(7, 10)(8, 23) (9, 
15) (12, 18)(13, 

16)(17, 20)(19, 22) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t22 =y *« x°-2 * y *« x°-2 * ytlt23. Apply at position 3. 


Found a new name: y * x * y * x°2 * y * x°2 * yx 


t20t17t1t23 


Seley Os. 225 Ths. 20) 
belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
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t22 = x°2 * y * x°-l * y * x * yt9t6. Apply at position 38. 


Found a new name: (x*-l * y * x°2)°2*t17t19t9t6 


Te Oe. GA AR) (Ay 
11, 21, 18, 13) belong to N. 
tl = t7t19 => 
Ctl) p= ECS) tT el9). p= 
t10 = Id($)t22t16. Apply at position 1. 


Found a new name: x°2 * y * x°—1l*t22t16t7t22 


24, 12)(8, 11, 10, 
15)(9, 14, 17, 16) belong to N. 


(t1)*p = (Id($)t7t19)*p => 


t7 = Id($)t19t13. Apply at position 2. 
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Found a new name: x°2 * y * x°—1l*t10t19t13t22 


DIGG P38. VOVCTS, Ab: 
24)(11, 20, 15) belong to N. 
tic t7tly => 
(61) "p= Cd (SB) tr0L9.) “p= 
t22 = Id($)t16t4. Apply at position 3. 
Found a new name: x°2 * y *« x°—lxtl0t7t16t4 


2K AK OK OK AK OK OK 2K OK OK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 2K 2K OK OK OK OK OK OK OK OK OK OK 2K OK OK OK OK OK OK 2K OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK 


Looking for relations to apply to x * y * x°-l * y * x°2 * 
y*xt16t16t20 
Found 14 


19) (137 22) (14, 
18)(17, 21)(20, 24) belong to N. 
tl 2 = 47 
CtPt) p=] CId (SB) Cy pS 
t16t16 = Id($)t4. Apply at position 1. 
Found a new name: x * y * x-—-l * y * x°2 * yxt4t20 


398 


20: 13) (8, At, 93, 
11)(8, 19, 16, 18) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t16 = x°-1l * y * x°2t6t19. Apply at position 1. 
Found a new name: x*—-l * y * x * y*t6t19t16t20 


10) (12). 15, 19, 20; 22) 
belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t20 = x°2 * y * x * y * x°-l *« yt18t10. Apply at position 


Found a new name: (y * x*—2)°2*t20t20t18t10 

Let p = (1, 2)(3, 21)(4, 22)(5, 6)(7, 8)(9, 15)(10, 16) (11, 
i213, Tey 

18)(19, 20)(23, 24) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t20 = y « x°-l * y * x°2 * y * xt22t7. Apply at position 3. 

Found a new name: y * x°-l * y * x * y * x°2 * yx 


t19t19t22t7 
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LANL .8; BAVC by i155 

22)(18, 19, 20) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t20 = x°2 * y * x°2t17t24. Apply at position 3. 

Found a new name: x*-2 * y * x * y*t22t22t17t24 

het - pols 2 doe Thy 22).03:,):53 libs: "24-8 ay 195. 20% Os, 
LiV(10;, 13i¢ 14, D1 98) 

belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t20 =x * y * x°2 * y * x°-1 *« ytl9t3. Apply at position 38. 


Found a new name: tl1tltl19t3 


i 
(>) 
+ 
so) 

II 


(1 De PECs 6x, 16) Ay Oy. TONGS 1S, TAF, Be. 98) 
(LO) Bi ars. 1s 

22)(17, 19, 20) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t20 = y * x°-l * y * x * y * x°2t9t23. Apply at position 38. 


Found a new name: x * y * x°-2 * y * x*xt4t4t9t23 
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19) (13, 22)(14, 
18)(17, 21)(20, 24) belong to N. 


Cl) p= Cid (9) rol.) ps 
t16 = Id($)t4t10. Apply at position 1. 
Found a new name: x * y * x-—-l * y * x°2 * yxt4t10t16t20 


6) (5,7, 14, 24,27) 
belong to N. 
tl = t7t19 => 
(tL p= Old (SV trol 9) “p= 
t20 = Id($)t14t2. Apply at position 3. 
Found a new name: x * y * x-—-l * y * x°2 * yxtl6t16t14t2 


OK AK OK OK 2K OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK 2K OK OK 2K OK OK OK OK OK OK 2K OK OK OK OK OK OK 


Looking for relations to apply to y * x°-2 * y * x * yx 
t7t14t18 

Found 19 

Let. p= (14-13% 196 2s 16) 1S). BS 2, 8 As 


Do Aros Bay QU; 
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10)(14, 22, 21, 18) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t7 =x * y * x°-2t3t4. Apply at position 1. 


Found a new name: (y * x°2)°2«t3t4t14t18 


93° 92,591) (105 19, 

14, 17, 24, 15) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t14 = x *« yt7tll. Apply at position 2. 

Found a new name: y * x°2 * y *« x°—l«tl1t7t11t18 

het C1 Be. 2. BA Oe By 17 We Oy 18)8, 19, 
(4. Rs OR ACF. BD. 

24, 11, 16, 15) belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl4 = y *« x°-l * y * x°2 * yt3t12. Apply at position 2. 

Found a new name: t1t3t12t18 

Let p= (148) 1S, 2425 2s. 12) 13) (Bs Th Fe 2OVTAS 10; 
99 U6)t5e. 17; O32 


11)(6, 19, 14, 9) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t14 = y *« xt10t15. Apply at position 2. 


Found a new name: y * x°-2 * y * x°2«t19t10t15t18 


A402 


Let p = (1, 8)(2, 13)(3, 17)(4, 24)(5, 9)(6, 22)(7, 20)(10, 


1B )( TL «21) (125 
16)(14, 19)(15, 23) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


tl4 =y *« x°2 * y * x°-1l * yt24t1. Apply at position 2. 


Found a new name: y * x * y * x°2 * y * x°2 * yx 


t20t24t1t18 


Let p = (1, 8, 4, 23)(2, 16, 11, 13)(3, 9, 21, 15)(5, 19, 


14, 22)(6, 18, 24, 
12)(7, 20, 10, 17) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


tl4 = y *« x°-2 * y « x°-2 * yt23t4. Apply at position 2. 


Found a new name: x*—-l * y * x * y * x°—l1l*t17t23t4t18 
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13)(75 4s BIT BD, 

15)(18, 20, 19) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2)% y # x°=2 e yt4is)*p => 

tl8 =x * y * x°-2 * y * x « yt9t7. Apply at position 3. 

Found a new name: x * y * x°2 * y * xX * y * x°-l * yx 
t12t2t9t7 

Let pS (15. 1s, PE aS. TY (By 10, 88a Ze BAN Os 185 By. 21, 
16). (9; 29> 1%. 19: 

18) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t18 = x *« ytl1t8. Apply at position 3. 

Found a new name: y * x°2 * y *« x°—lxt1l1t18t11t8 

Let p = (1, 12)(2, 22)(3, 21)(4, 20)(5, 23)(6, 13)(7, 24) 
(8, 16)(9, 15)(10, 

14)(11, 17)(18, 19) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t18 =y « x°2 * y * x * y * x*-1t20t16. Apply at position 
3. 


Found a new name: x°2 * y * x°-l * y * x°2«t19t4t20t16 


404 


8)(03- 10. Tere 2A, 
16)(11, 15, 20) belong to N. 
Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl18 =y * x * y * x°2 * y * x°-1t19t5. Apply at position 3. 
Found a new name: x*—-l * y * x * y*t17t20t19t5 


= 
(>) 
+ 
co) 
II 


(lee Ds A DO. “ON Ds EG Oe Ss AA. Be Bis 28, 
Sy tS, My 2ie 75-24) 

belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl18 = y « x°-l *« y *« x°2 « yt4t3. Apply at position 3. 

Found a new name: t1t22t4t3 

Leip (Ly Fe 19> 18) 2s By. As 21a 20y B28 p20) 65 18! 
OAs TOV (8s “Tis. DOs 

15)(9, 14, 17, 16) belong to N. 


Chel p = CdS) t7 Elo). p= 
t7 = Id($)t19t13. Apply at position 1. 


Found a new name: y * x°-2 * y * x *« yxt19t13t14t18 
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11) (13, 20) (16, 
T7) (1S, 21) (22, 23)" belome : to-N. 
tl = t7t19 => 
Cl) p= C9 (5) trol.) ps 
t14 = Id($)t2t8. Apply at position 2. 
Found a new name: y * x°-2 * y * x * yxt7t2t8t18 
Let p = (1, 18, 17)(2, 4, 15)(3, 8, 10)(5, 7, 6)(9, 20, 22) 
(Lit: 20% 19)(13, 2m 
23)(14, 16, 21) belong to N. 
tl = t7t19 => 
Ctl) Ap = Old (a) trol 9) “p= 
t18 = Id($)t6t12. Apply at position 3. 
Found a new name: y * x°-2 * y * x * yxt7t1l4t6t12 


2K AK OK OK 2K OK OK 2K OK OK OK OK OK OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 2K 2K OK OK OK OK OK OK OK OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK 


Looking for relations to apply to t7t19t3 

Found 20 

Let p = (1, 13, 19, 7)(2, 16, 15, 6)(3, 12, 8, 4)(5, 11, 
95 TPVCGA Dd. BO. 


10)(14, 22, 21, 18) belong to N. 
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Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t7 =x * y * x°-2t3t4. Apply at position 1. 


Found a new name: x * y * x°—2«t3t4t19t3 


24, 18)(8, 15, 10, 
11)(9, 16, 17, 14) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t7 = x°-l *« y * x * y * x°2 * yt5t15. Apply at position 1. 
Found a new name: x*—-l * y * x * y * x°2 * yxet5t15t19t3 


15)(10, 12, 21, 17) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t7 =y * x°2 * y * x°-l * y * xt6t20. Apply at position 1. 

Found a new name: y * x°2 * y * x°-l *« y * x«t6t20t19t3 

Let p= (14-18) 195. 7) (2, 28) 18) 10) (Be 9% 215 15y(4, 14; 
Pie SAV(S% 195. 16s 


20)(6, 22, 8, 17) belong to N. 
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Lemma 3: t19 = yx°2yx°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t7 =y * x°-1t14t17. Apply at position 1. 


Found a new name: y * x°—l«t1l4t17t19t3 


20)(12, 23, 15, 14) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t7 =y * x * y * x°-2 * y *« xtl0tl18. Apply at position 1. 

Found a new name: y * x * y * x°-2 * y * x*t10t18t19t3 

Let p = Id($) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t19 =y * x°-2 * y * x°-2 « yt4t8. Apply at position 2. 

Found a new name: y * x°-2 * y * x°-2 *« yxtl7t4t8t3 

Let p = (2, 9, 12, 11, 22)(3, 6, 5, 10, 14)(4, 20, 15, 18, 
LI) CS DI 04. BB. 

16) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
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t19 =x * y * x°-l *« y * x°2 * yt20t21. Apply at position 


Found a new name: x * y * x-—-l * y * x°2 * yxt4t20t21t3 


18) (8, 24,. 16, 21, 

23) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t19 =y * x°2 * y * x°-1 * yt15t24. Apply at position 2. 

Found a new name: y * x°2 * y *« x°-l * yxt20t15t24t3 

Let pS (26 1d. Pe 22412) 3 9 £05. Oe day Be he 0G. Ls 
15)(8. (239 21 Db 

24) belong to N. 


Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t19 =x *« y * x*-l * y * x * y * xt18t23. Apply at position 


Found a new name: x * y * x°-l * y * x * y * x*t15t18t23t3 

Let 2 (24284 Ty TD BBs. 1A Ne Ge Say TE TRS 1, 
20)(8, 16, 23, 24, 

21) belong to N. 
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Lemma 3: t19 = yx°2yx*°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t19 = x°-2 * y * xt17t16. Apply at position 2. 


Found a new name: x°—2 *« y *« x«t18t17t16t3 


24, 12)(8, 11, 10, 
15)(9, 14, 17, 16) belong to N. 


(il) p= tlds) 1719) Ss 
t7 = Id($)t19t13. Apply at position 1. 


Found a new name: t19t13t19t3 


17) (11, 15)(12, 

18)(14, 16)(20, 22) belong to N. 

tl = t7t19 => 

(G1) p= (IGS) t7t19 pS 

t19 = Id($)t13t1. Apply at position 2. 

Found a new name: t7t13t1t3 

Let p = (1, 3, 20, 24, 4, 5)(2, 6, 22, 23, 19, 21)(7, 9, 
14, 18, 10, 11)(8, 12, 


16, 17, 13, 15) belong to N. 
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Slo = 

Coy pes hd acter GOs) pas 

t3 = Id($)t9t21. Apply at position 38. 
Found a new name: t7t19t9t21 


2K AK OK OK 2K OK OK 2K OK OK OK OK OK OK OK 2K OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK 


Looking for relations to apply to t1t9t21 
Found 19 


20)(10, 24)(11, 
17)(14, 21)(18, 22) belong to N. 
Lemma 3: t19 = yx °2yx°-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
tl =y * x * y * x°2 * y * x°-1t12t3. Apply at position 1. 
Found a new name: y * x * y * x°2 * y * x°—1#t12t3t9t21 
het p(y. 1,2 315 (12s, A Be 28: Dae 10. “TVs Bye DOy TBs 
DV ed Big! 2 
19) belong to N. 
Lemma 3: t19 = yx°2yx*-2yt4t8. ==> 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t9 = y * x°2 * y * x°-l1 *« ytlt8. Apply at position 2. 


Found a new name: y * x°2 * y * x°-l * yxt8tlt8t21 


All 


19)(10, 16)(11, 

17)(13, 21)(18, 20) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t9 =y * x°-l * y * x * y * x°—-2t22t24. Apply at position 
2 


Found a new name: y * x°-l * y * x * y * x°—2«t13t22t24t21 


2A) (60; 235 10) (85. 13 
21)(12, 17, 22) belong to N. 
Lemma 3: t19 = yx°2yx°-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
t9 =y * x * y * x°-2 * y * xt18t13. Apply at position 2. 
Found a new name: y * x * y * x°-2 * y * x*t3t18t13t21 
Let p = (1, 15, 22, 2, 17)(3, 16, 8, 5, 7)(4, 20, 11, 19, 
9)(10, 14, 23, 13, 21) 
belong to N. 
Lemma 3: t19 = yx°2yx*-2yt4t8. => 
(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t9 = x°-l * y * x * y * x°2 * yt20t5. Apply at position 2. 
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Found a new name: x*—-l * y * x * y * x°2 * yxt1l4t20t5t21 

eg po (1s Aes 18 4 ae DE Sy 6s Tbs. 14S bees. “10% 
23V(9;,. 12). 19) (135. 21, 

24)(17, 20, 22) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t9 = y « xtl1t10. Apply at position 2. 


Found a new name: y * xxt7t1l1t10t21 


16, 17, 13, 15) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t21 =y * x * y * x°2 * y * x°-1t5t12. Apply at position 3. 

Found a new name: y * x * y * x°2 * y * x°—1*t23t13t5t12 

Let p = (1, 3, 11, 14)(2, 7, 9, 23)(4, 10, 22, 16)(5, 20, 
13, 15)(6, 18, 24, 

12)(8, 19, 21, 17) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. ==> 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 


t21 =x * y * x°2 * y x x°-1 * yt1l0t19. Apply at position 
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Found a new name: x * y * x°2 * y * x°-l * yxt21t8t10t19 


7; 9, 6, 20) Q11,. 16, 

19, 21, 12, 14) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t21 =x * y * x°—2t13t17. Apply at position 3. 

Found a new name: x * y * x°—2«t5t10t13t17 

Let p = (1, 3)(2, 16)(4, 8)(5, 18)(6, 11)(7, 9)(10, 20) (12, 
23)(13, 15) (14, 

22)(17, 24)(19, 21) belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

t21 =y *« x°-l *« y *« x°2 * yt8t4. Apply at position 3. 

Found a new name: y * x°-l * y * x°2 *« yxt13t24t8t4 

Letcp: = (is 33, 922 GY (0. ay, BOs 8) (4, 304. 19, O15. TT, 
235 ANC 9441.65 

12)(10, 18, 13, 15) belong to N. 

Lemma 3: t19 = yx°2yx*°-2yt4t8. => 


(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 
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t21 = x°2 * y * x°2t24t2. Apply at position 3. 
Found a new name: x°2 * y * x°2«t7t5t24t2 


6) %o> DEa ACV iy 203 

12)(14, 24, 23) belong to N. 

tH ]—~A71o = 

Chl p= CDS) tito) py 

t9 = Id($)t21t15. Apply at position 2. 

Found a new name: t1t21t15t21 

Let p = (1, 21)(2, 5)(8, 19)(4, 6)(7, 15)(8, 11)(9, 13)(10, 
ie Be: a Bo 

18)(20, 23)(22, 24) belong to N. 

th S41 === 

Co) preer Chd Se tl Oy ps 

t21 = Id($)t15t3. Apply at position 3. 

Found a new name: t1t9t15t3 


2K OK 2K OK OK 2K OK OK OK OK OK OK OK OK OK OK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


PROOF 


2K AK 2K OK 2K OK OK 2K OK OK OK OK OK OK KOK OK OK OK OK OK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK KOK OK OK OK KOK OK OK OK KOK OK 2K OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 


Start with t1t3 
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Apply the following at t word position 1: 
let poH (1s 19)( 23. 1584.8) 445 T2)(5 23) (6° te) (7s. 13) C9 
20)(10, 24)(11, 

17)(14, 21)(18, 22) belong to N. 

Lemma 3: t19 = yx°2yx*-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl =y x* x * y * x°2 * y * x°-1t12t3 => 

tlt3 =y * x * y * x°2 * y * x*-lLetl2t3t3. 

Apply the following at t word position 1: 

Let rp Sil: tes; Torey ES. yack AO ees: TOs TAP CRs. 23 
LOV(O5. 10). AO LBs 24 

21)(17, 22, 20) belong to N. 

Lemma 3: t19 = yx°2yx°-2yt4t8. => 

(t19)*p = (y * x°-2 * y * x°-2 * yt4t8)*p => 

tl2 = x°2 * y * x * y * x°-l * yt2t23 => 

yr X * y * XQ & y * x°-l * t12t38t38 = x°-l * y * x°2 * yx 
$2t23t3t3. 

Reduce in the following way: 

x°-l * y * x°2 * yxt2t23t3t3 

x°-l * y * x°2 * yxt2t23t9 


true */ 


Appendix H 
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MAGMA CODE: DCE 83 x A; 


Over 15:2 and 10:2 


/*From DCE over N see CSUSB Thesis, December 2017 by 


Michelle Yeo */ 
/* Isomorphism type */ 
S:=Sym(10) ; 
MSSM 2, ids ay Bs Oss 74 8G Oe 10) 
VoH ells Aas Stas. Si (5e 7) 
N:=sub<S| xx ,yy>; 


NN«x , y>:=Group<x,y|x°10,y°2,(x*y)°2>; 


Geax cy st =Group<* 7 5 |e 10 oy 2 ey Oe 2) 
Geet ae saya se) bur “se “Date ee, het et Le 8) od, 


(eet ay es yet) iS: 

AG; 

f ,G1,k:=CosetAction(G, sub<G|x,y>); 
#DoubleCosets (G, sub<G|x ,y>,sub<G|x,y>); 
CompositionFactors (G1) ; 

IN:=sub<Gl1]| f(x) ,f(y)>; 
#DoubleCosets (G, sub<G|x ,y>,sub<G|x,y>); 
M:= MaximalSubgroups (G1) ; 


for i in [1..4#M] do #M[i]‘subgroup/20; end for; 


for g in DD[6] do 

if DD[6] eq sub<Gl1| f(x) ,f(y),g> then 

Sch:=SchreierSystem(G, sub<G|Id(G)>); 
for i in [1..#Sch] do 

if g eq f(Sch[i]) then Sch[i]; end if; 
end for; 

break g; 

end if; 


end for; 


H=sub<G|xsy4 fo8 xO 5 oe De ox 


#DoubleCosets (G,H, sub<G|x,y>); 


A417 
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CompositionFactors (G1) ; 


NL:=NormalLattice (G1) ;/* 


[6] Order 360 Length 1 Maximal Subgroups: 3 5 


[5] Order 180 Length 1 Maximal Subgroups: 2 4 


[4] Order 60 Length 1 Maximal Subgroups: 1 


[3] Order 6 Length 1 Maximal Subgroups: 2 


[2] Order 3 Length 1 Maximal Subgroups: 1 


[1] Order 1 Length 1 Maximal Subgroups: / 


NL; /* 
G 
| Alternating (5) 
| Cyclic (2) 
| Cyclic(3) 
1 */ 


for i in [1..4#NL] do 


if IsAbelian(NL[i]) then i; end if; 
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end for; 

poe Deh 

q, ff:=quo<G1|NL[2] >; 

q; 

/*q = quotient group G1/N[2] of order 120. Gl cannot be 
the direct product to N[2] since Gl has no normal 
subgroup of order 120. Which means Gl is an extension of 


NL[2] by G1/NL[2] and G:=3:NL[2]. */ 


N:=q; 
CompositionFactors (N) ;/x 
G 
| Alternating (5) 
* 
| Cyclic (2) 
1 ah 
NL:=NormalLattice(N); /* 
[4] Order 120 Length 1 Maximal Subgroups: 2 38 


[3] Order 60 Length 1 Maximal Subgroups: 1 


[2] Order 2 Length 1 Maximal Subgroups: 1 


[1] Order 1 Length 1 Maximal Subgroups: */ 
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for i in [1..4#NL] do 
if IsAbelian(NL[i]) then i; end if; 
end for; /* 2 x/ 


q, ff:=quo<N|NL[2] >; 

q; 

/* TOD iso = s38xA5. And iso of IH = 215:2 x/ 

/*Since the order of q = 60 and N has a normal subgroup of 
order 60 => N=2 Alt (5). */ 


/DCE Using Magma 


FCCC CCC CCCI CCCI CCCI ICICI IG I a ak kk kk / 


S:=Sym (10) ; 

eel Dy BAe By Belts Bc 8s LO) 
yy:=S1(2, 10)(3, 9)(4, 8)(5, 7); 
N:=sub<S|xx,yy>; 


NNkx , y>:=Group<x,y|x°10,y°2,(x*y)°2>; 


Sch:=SchreierSystem (NN, sub<NN| Id (NN) >); 
word:= function (Perm) 


for w in Sch do 


seq := Eltseq(w); 
p:= Id(N); 
for j in seq do 
if j eq 1 then p:=p*xx; end 
if j eq —1 then p:=px*xxx*-—1; end if; 
if j eq 2 then p:=pxyy; end if; 
if j eq —2 then p:=pxyy°—1; end if; 
end for; 
if Perm eq p then return w; end if; 
end for; 
end function; 
ConjugationWord:= function(subscript ) 
size:=9999999; 
w:=word(N.1) ; 
for n in N do 
if n eq Id(N) then 
continue ; 
end if; 
if 1°n eq subscript then 
tmp:= word(n); 
if size gt #tmp then 
size:=#tmp; 
w:= tmp; 


end if; 


if; 
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end if; 
end for; 
return w; 


end function; 


a:=0;b:=0;c:=3;d:=0;e:=3;f:=0; 


Gex,y,t>—Group<x 30 |x" 10.9 "2. (ety) 250" 2634) 


Gent) ay Cee et Se) bee Dey ets ee) Oe, 
(xt °x)*e,(y*t)*£>; 
#G; 


f ,G1,k:=CosetAction(G,sub<G|x,y>); 


te Td (Gly 47. im, iff LO. 33 
for i in [2..10] do 
Pte |? ocak, primi xen. il <a eat 


(ConjugationWord(i)) cat ”));”; 


end for; 
ts: (:b) SEG): 
ts [2 Si tr (ys 


ts [3 i=f 


ts [5 i=f 


(t*( 
(t*( 

te [4] f(t" ("3 
(t*( 
(t*( 


ts |6 a 


aso Oe a 
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Cie see 65-8.) ads 


cat Sprint 
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ts[7]  :=£(t°(x*-4)); 
ts[8]  :=£(t*(x*-3)); 
ts(9]  :=£(t°(x*-2)); 
ts[10] :=f(t*(x*-1)); 


HH =sub<G| sic hoe Oo RSS 

IN:=sub<Gl1| f(x), f(y)>; 

THe=subeGl | (xe) br) 3 EC ee: I ee RSS 
#DoubleCosets (G,H, sub<G|x,y>); 
DoubleCosets(G,H,sub<G|x,y>); /x 

{ <GrpFP: H, Id(G), GrpFP>, <GrpFP: H, t, GrpFP> } «/ 


DC:= [f(Id(G)), f(t) ]; 
FindDCNumber:= function (element ) 
for 1.im 1s. DE] do 

for m in IH do 
for n in IN do 


if element eq m*(DC[i])*n then 


return 1; 
end if; 
end for; 
end for; 
end for; 


end function; 
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Orbits (N) ;/* 
GSet{@ 1, 2, 3, 10, 4, 9, 5, 8, 6, 7 G} «/ 
Nl:= Stabilizer(N, 1); 
Nl; 
Orbits(N1); /« 
GSet{@ 1 @}, 

GSet{@ 6 @}, 

GSet{@ 2, 10 @}, 

GSet{@ 3, 9 @}, 

GSet{@ 4, 8 @}, 

GSet{@ 5, 7 @} «/ 


FindDCNumber(ts[1]*ts[1]); /* 1 */ 
FindDCNumber(ts [1]* ts[6]); /* 1 */ 
FindDCNumber(ts[1]*ts[2]);  /* 2 */ 
FindDCNumber(ts [1]*ts[3]); /* 2 */ 
FindDCNumber(ts[1]*ts[4 ]); /* 2 x*/ 
FindDCNumber(ts[1]*ts[5]); /* 2 */ 


TPerm:= function(Tset ) 
perm:= ts|Tset [1]]; 
for i in [2..4#Tset] do 
perm:= permxts[|Tset [i ]]; 


end for; 
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return perm; 


end function; 


EquivalentCosets:= function(Tset ) 
perm:=TPerm( Tset) ; 
TSets :=[]; 
for g in IN do 
for n in N do 
perm2:= TPerm(Tset“n) ; 
if perm eq gx*xperm2 then 
TSets:= TSets cat [Tset*n]; 
end if; 
end for; 
end for; 
return TSets; 


end function; 


EquivalentCosetsH:= function (Tset ) 
perm:=TPerm( Tset) ; 
TSets :=[]; 
for g in IH do 
for n in N do 
perm2:= TPerm(Tset“n) ; 


if perm eq g*xperm2 then 
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TSets:= TSets cat [Tset*n]; 
end if; 
end for; 
end for; 
return TSets; 


end function; 


FindFromToPerms:= function(Tsetl, Tset2) 

NPerms : = []; 
for n in N do 

if Tsetl*n eq Tset2 then 

NPerms:= NPerms cat [n]; 

end if; 
end for; 

return NPerms; 


end function; 


EquivalentCosets([7,2]);/* [ 7, 2 ], 


9,4], 
5, 10 ], 
Ly. 6 |; 
3-8 14 
a: C0 Wt 
Te De | 


[ 1, 6 ] */ 


FindFromToPerms([7,2], [1,6]); /*(, 


4, 8), 


(1, 7)(2, 6) (8, 


5) (8,410) #/ 
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Appendix I 


MAGMA: DCE of (As5)?:2 Over 
Ap : 2 


S:=Sym (24) ; 

xx:=S!(1, 2, 4, 12, 21)(3, 7, 8, 10, 18)(6, 15, 19, 20, 22) 
(9, 13, 14, 16, 24); 

yy:=S!(1, 15)(2, 5)(3, 13)(4, 6)(7, 21)(8, 11)(9, 19) (10, 
12)(14, 17)(16, 18) (20,23) (22, 24); 


N:=sub<S|xx,yy>; 
NN&xs y>!=Group<x,y|x° 5, y° 24. (xl oy} OA Ge ey KD 


y * x)°2 >; 


(rac=Ucbr=09c2=0yds—4er= 05, Feeds 
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G<x ,y,t>:=Group<x,y,t|x*5,y°2,(x°—l*y) “4, (x*y*x*—-2*y*x)°2,t 
"Ba. (tga 2eyanry sty {ext 2. Oly way lt (dex a1) 2) 
“ag Cy 2et bs (yee 2et (x a1) oe yee 2et yee 2) Od yt 


Vr Jey Dye Sie) 


G<x ,y,t>:=Group<x,y,t|x°5,y°2,(x°—l*y) °4,(x*y*x*—2*y*x)°2,t 
“> (hg 2eyray st (yas) aH-o 2 yea Lye 2), Cy ee 


“ae 2) eee 


f ,G1,k:=CosetAction(G, sub<G|x,y>); 

Gl; 

IN:=sub<Gl1| f(x) ,f(y)>; 

/*(2, 4, 12, 19, 7)(3, 8, 21, 28, 10)(5, 6, 18, 37, 16)(9, 

11, 29, 43, 25)(14, 15, 34, 48, 32)(17, 38, 50, 58, 
40)(20, 26, 31, 35, 30)(23, 51, 45, 49, 42)(24, 53, 

46, 59, 36)(27, 55, 44, 52, 57)(33, 54, 56, 60, 
39), 


(2) BY (8,. 9)(4, 18) (6; 10) (7, 11) (85, 22) (12, 16) (15, 
35) (17, 39)(18, 41)(19, 43)(20, 45)(21, 25)(23, 52) 
(24, 

53) (26, 30)(27, 48)(28, 37)(29, 47)(31, 32)(33, 40) 
(34, 57)(36, 58)(38, 46)(42, 55)(49, 51)(56, 59) 
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(ie 23.65 Tis Ba p19) SO 38 ah Bl ORs 17) 


(7, 8, 23, 46, 20)(9, 24, 43, 55, 26)(10, 27, 56, 


51, 


28)(16, 36, 18, 42, 32)(19, 44, 40, 35, 41)(21, 47, 


45, 58, 48)(22, 49, 57, 29, 50)(25, 34, 52, 37, 


54) (38, 
53, 60, 39, 59) */ 


Sch:=SchreierSystem (NN, sub<NN| Id (NN) >); 
word:= function (Perm) 
for w in Sch do 

seq := Eltseq(w); 

p:= Id(N); 

for j in seq do 

if j eq 1 then p:=p*xx; end if; 

if j eq —1 then p:=px*xxx*-—1; end if; 
if j eq 2 then p:=pxyy; end if; 
if j eq —2 then p:=pxyy°—1; end if; 

end for; 

if Perm eq p then return w; end if; 
end for; 


end function; 


InWord:= function (Perm) 
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for w in Sch do 

seq := Eltseq(w); 

p:= Id(IN); 

for j in seq do 

if j eq 1 then p:=pxf(x); end if; 

if j eq —1 then p:=pxf(x)*-1; end if; 
if j eq 2 then p:=pxf(y); end if; 
if j eq —2 then p:=pxf(y)*—-1; end if; 

end for; 

if Perm eq p then return w; end if; 
end for; 


end function; 


GetConjugationWordForSubscript:= function(subscript ) 
size :=9999999; 
w:=word(N.1) ; 
for n in N do 
if n eq Id(N) then 
continue ; 
end if; 
if 1°n eq subscript then 
tmp:= word(n) ; 
if size gt #tmp then 


size:=7tmp; 


w:= tmp; 
end if; 
end if; 
end for; 
return w; 
end function; 
(eS) AGI) a) am jd gs 244 


ts[l]:=f 


ts [2|:=f 


ts [4]:=f(t*(x*2)); 


( 
(t7( 
ts [3]:=f(t *((x*y*x)*-1)); 
(t*( 
ts[5]:=f((t°x)*y); 

( 


tS [6] ((4e(s" 2) 


ts[19]:= ts[1]°2; 
ts [20]:= ts [2]°2; 
ts[21]:= ts [3]°2; 
ts [22]:= ts [4]°2; 
ts [23]:= ts [5|]°2; 
ts [24]:= ts [6|°2; 
bee [eS eee as 
ts [Sle $si[2)°3; 


eR sme oe ee 


$8 [10|t=> ts. [4]° Ss 
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ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


ts 


= ts aesye 
= ts “ios 
= ts “4; 
= ts “4; 
= ts “As 
= ts was 
= ts are 
= ts “4; 
eq ts ws 
eq ts os 
eq ts 2 
eq ts mis 
eq ts “2; 
eq ts W253 
eq ts[1]°*3; 
eq ts[2]*3; 
eq ts[3]°3; 
eq ts “3; 
eq ts “3; 
eq ts “3; 
eq ts “4; 
eq ts “4; 
eq ts ers 
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ts[16] eq ts[4]°*4; 


ts[17] eq ts[5]°*4; 


ts[18] eq ts[6]°*4; 


for i in [2..24] do 
Tie? “cab Spray a iséaty | “eg 
end for; 
ts[2] eq f(t*(x)); 
ts [3 eq f(t*(x*-l * y * x*-1)); 
ts [4 €q) CG ie 2) 
ts[5] eq f£(t*(x * y)); 
ts [6 eq f(t*(y * x*-1)); 
ts [7 eq f(t*(x*-l * y)); 
ts [8 eq f(t*(y°x)); 
ts [9 eq £(4 Cy #5 * y))s 
ts/10 eq f(t*(x*-2 * y)); 
ts/1l eq f{(t*(x*-l * y * x * y)); 
ts [12 eq f(t *(x*-2)); 
ts/13 eq f(t*((y * x)*2)); 
ts [14 ed DUG, (ye Arse ey OF DS 
ts [15 eq f(t*(y)); 
ts/16 eq f{(t°(y * x * y * x*-2)); 


Sprint (GetConjugationWordForSubscript(i)) cat ”);”; 


PEACE eat 
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ts [17 eq f(t°(y * x * y * x°2 * y)); 
ts[18] eq f(t*(x*-l * y * x*-2)); 
ts[19] eq f(t*(y * x)); 

ts [20 eas ECG” Ge ae es 

ts {21 eq f(t*(x*-1)); 

ts [22 eq f(t*(y * x*-2)); 

ts [23 eq f(t" (y #x°2 #-y¥)); 

ts [24 eq £(t by ae eg ee KS) 


/* print the inverses */ 
Lor: 244 ai |) [Dect] ode 


if ts[i] eq ts[j]*-1 then 


ae” eat: Spree.) Cat ee." Ca a cat 


Sprint(j) cat ”*-1”; 
end if; 


end for; 


DoubleCosets (G, sub<G|x,y>, sub<G|x,y>); 
#DoubleCosets (G, sub<G|x,y>, sub<G|x,y>); 
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/*{ <GrpFP, Id(G), GrpFP>, <GrpFP, t * y * t°—1, GrpFP>, < 


GrpFP, t, GrpFP>, 
<GrpFP, t * x * t°—1, GrpFP> }x«/ 
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DC:= [f(1d(G)), f(t), f(t * y * t°-1), f( t * x * t*-1)]; 


/«| Td( G1) 5.1: Bs 64 To BY Ay. 18S B05 O85 TAGs, 15,5 
Sin. 18s. TCT 8 98. Oy, DONO e DA, 48s S57 96) (104 87 
565 Sly 98) (by 36; 18) Am, SU o, 445 AG, 355. 41) (oT, 
47, 45, 58, 48)(22, 49, 57, 29, 50)(25, 34, 52, 37, 54) 


(38, 53, 60, 39, 59), 

(Vg EF). (2y BB) (4 32S 40) (65-20).(75 508s B34) (9, 
38)(10, 58)(11, 26)(12, 55)(13, 60)(14, 31)(15, 42) 
(16, 45)(18, 43) (21, 57)(22, 56)(23, 59)(24, 41) 
(25, 49)(27, 39)(30, 44)(35, 36)(46, 47) (48, 54) (51, 

52), 

(hy Tay Aye Aiy BOL Oy B64. 52) 38, 175. B55 58,42, 
33)(6, 57, 24, 54, 

96) (hy ASi 5 1 8h. 115. (By 565 42%. DOy: 18S BB, 
23, 39, 16)(10, 43, 19, 

34, 49)(12, 46, 55, 15, 40)(13, 59, 29, 45, 44)(27, 
53, 60, 30, 37)]*/ 


HNG fe 120 #7} 
[ 120/120, 2880/120, 2400/120, 1800/120 |; 


FindDCGroupNumber := function(DC, element, IN) 


for i in [1..4#DC] do 
for m,n in IN do 


if element eq m*(DC[i])*n then 


return 1; 
end if; 
end for; 
end for; 
end function; 
ConvertToPermutation:= function(Tset) 


perm:= ts|Tset [1]]; 
for i in [2..4#Tset] do 
perm:= permxts[Tset [i ]]; 
end for; 
return perm; 
end function; 


TPerm:=ConvertToPermutation ; 


Orbits (N) ; 

Nl:= Stabilizer(N, 1); 

NI; 

Orbits (NI); 

/x GSet{@ 1 @}, 
GSet{@ 7 @}, 
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GSet{@ 13 @}, 

GSet{@ 19 @}, 

GSet{@ 2, 21, 24, 23, 16 G}, 

GSet{@ 3, 6, 5, 22, 8 @}, 

GSet{@ 4, 14, 9, 12, 11 @}, 

GSet{@ 10, 20, 15, 18, 17 G} +/ 
FindDCGroupNumber (DC, ts[l]*«ts[1], IN); /*2«/ 
FindDCGroupNumber (DC, ts[l]*xts[7], IN);/*2«/ 
FindDCGroupNumber (DC, ts[1]*ts[13], IN);/x*1*/ 
FindDCGroupNumber (DC, ts[l]*«ts[2], IN); /*2«/ 
FindDCGroupNumber (DC, ts[1l]*xts[3], IN);/*3«/ 


FindDCGroupNumber 


( 
( 
( 
FindDCGroupNumber (DC, ts[1]*ts[19], IN);/*2*/ 
( 
( 
(DC, ts[1l]*ts[4], IN);/*4*/ 
( 


FindDCGroupNumber (DC, ts[1]*ts[10], IN) ;/*4*/ 
FindStabilizerOfNums:= function (num) 

ArrPerm:=[]; 

for n in N do 

if num*n eq num then 

ArrPerm:= ArrPerm cat [n]; 
end if; 

end for; 


return ArrPerm; 
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end function; 


EquivalentCosets:= function(Tset ) 
perm:=ConvertToPermutation( Tset) ; 
TSets :=[]; 
for g in IN do 

for n in N do 
perm2:= ConvertToPermutation(Tset“n) ; 
if perm eq g*xperm2 then 
TSets:= TSets cat [Tset*n]; 
end if; 
end for; 
end for; 
return TSets; 


end function; 


StabilizingGroup := function(N, IN, ts, Tword) 
TWords:= Equivalent Cosets (Tword) ; 
group:=Stabiliser(N, Tword) ; 
for i in [2..4#TWords] do 

for n in N do 
if Tword*n eq TWords[i] then 
group:=sub<N| group ,n>; 
end if; 


end for; 
end for; 
return group; 


end function; 


N13s:= StabilizingGroup(N, IN, ts, [1,3]); 

N13s; 

/* < (1, 20)(2, 7)(3, 11)(4, 18)(5, 21)(6, 16)(8, 13)(9, 
7) CLO. BAAS >. 90) CIA> 19) (15.98) 


(ie Peds OVO» BOe Ty BV (Sy 28s 0s, 19) Ay oy 2k, 


17)(5, 16, 18, 9)(11, 22, 24, 15) 
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(1, 14)(2, 13)(3, 22)(4, 9)(5, 17)(6, 18)(7, 20)(8, 19) 
(10, 15)(11, 23)(12, 24)(16, 21) 

C1 BD TOR BAA, SC, SV CT PAV COs. 11) (09 18) 
(13, 20)(16, 17)(18, 21)(22, 23) 

(iy 13) Os TAG M0 21S. SIGs. TTT 19): (8; 
20)(9, 16) ( 24)(12, 23)(15, 22) 

(1, 2)(3, 15)(4, 16)(5, 6)(7, 8)(9, 21)(10, 22)(11, 12) 
(13, 14)(17, 18)(19, 20)(23, 24) 


Ci TOs 18s PCW: B. DAY. BO) (Bs: 18 104-284, 17; Dt, 


6)(5, 9, 18, 16)(11, 15, 24, 22) > x/ 


Orbits (N13s) ; 
/x GSet{@ 1, 20, 7, 14, 8, 13, 2, 19 @}, 
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GSetd O35 Ty B34, °92s 84) 10h 15s 32°Gh: 
GSet{@ 4, 18, 6, 9, 5, 21, 16, 17 Q} x/ 


FindDCGroupNumber (DC, ts[1]*ts[3]*ts[1], IN); /*3*«/ 
FindDCGroupNumber (DC, ts[1l]*ts[3]*ts[3], IN); /2*/ 
FindDCGroupNumber (DC, ts[1]*ts[3]*ts[4], IN); /*4«/ 


N14s:= StabilizingGroup(N, IN, ts, [1,4]); 
N14s; 
(eV, 10s 244.3, 2, LDA, 18; B1y BOs Vis, 19) (5,- 13s-22;, 
135. 0, TAY (6s Oh By 84. Fy 16) 
(1, 3)(2, 10)(4, 20)(5, 12)(6, 23)(7, 9)(8, 16)(11, 18) 
(13, 15)(14, 22)(17, 24)(19, 21) 
(Ly 172 Do R, BA 10 (Ay VO, 11 Oe BT, W8)(5, Tas 15, 
12, 22, 13)(6, 16, 7, 28, 8, 9) 


(gO: DAV R 10y ay Ads, 24) (218s 90 (Ge 7, 2805 
16: 23) (12s 13) 148s “16s 20) 

(ig 24 O)18;- Tye TOV Ay: OTs: Tay Gs, 22) 456. 8) 2.0 
23, 16)(12, 14, 13)(18, 20, 19) «/ 


Orbits (N14s) ; 
/x GSet{@ 1, 10, 3, 17, 2, 24 @}, 
GSet{@ 4, 18, 20, 19, 11, 21 @}, 
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GSet{@ 5, 13, 12, 14, 15, 22 @}, 
GSet{@ 6, 9, 23, 16, 7, 8 @}x/ 


FindDCGroupNumber (DC, ts[1l]*«ts[4]*ts[1], IN); /* 2 x*/ 
FindDCGroupNumber (DC, ts[1l]*«ts[4]*ts[4], IN); /* 3 x*/ 
FindDCGroupNumber (DC, ts[l]*«ts[4]*ts[5], IN); /* 4 x/ 
FindDCGroupNumber (DC, ts[l]*«ts[4]*ts[6], IN); /* 2x/ 
GetStringT := function(set ) 
Stel gas 

for i in [1 .. #set] do 

Strl:= Strl cat ”t”; 
Strl:= Strl cat IntegerToString(set[i]); 


end for; 
return Strl; 
end function; 


TStr:=GetStringT ; 


/* PrintEquivalentCosetsTo([13]); x*/ 
PrintEquivalentCosetsTo:= function(N, IN, ts, Tset) 
ECs:= Equivalent Cosets(Tset ) ; 
str: "N”: 
for i in [1..#ECs] do 
str := str cat GetStringT(ECs[i]) ; 
edge:=” = N”; 


if i eq #ECs then 
edge:= "\t”; 
end if; 
str := str cat edge; 
end for; 
return str; 


end function; 
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fe Nts: = -Nt20011 = Ntri23 = NtlAt22. = Nise24 = Nti3tid = 


Nt2t15 = Nt19tl2 «/ 


PrintEquivalentRelations := procedure(Tset ) 
perm:=ConvertToPermutation( ts, Tset) ; 
TSets :=[]; 

for g in IN do 


for n in N do 


if n eq Id(N) or g eq Id(IN) then continue; 
perm2:= ConvertToPermutation( Tset“n) ; 
if perm eq g*xperm2 then 
GetStringT(Tset) cat ” =” cat Sprint (InWord(g)) cat 
GetStringT(Tset“n); 
GetStringT(Tset*n) cat ” =” cat Sprint (InWord(g*—1)) cat 


GetStringT (Tset) ; 


if 
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end if; 
end for; 
end for; 


end procedure; 


FindEquivalentRelations := function(Tset, Tset2) 

perm:=ConvertToPermutation( Tset) ; 

TSets :=[]; 

stri=?"s 

for g in IN do 

perm2:= ConvertToPermutation(Tset2) ; 

if perm eq g*xperm2 then 

str:= str cat GetStringT(Tset) cat ” =” cat Sprint (InWord( 
g)) cat GetStringT(Tset2) cat ”\n”; 

end if; 

end for; 


return str; 


end function; 


FindFromToPerms:= function(Tsetl, Tset2) 
NPerms : = []; 
for n in N do 
if Tsetl*n eq Tset2 then 


NPerms:= NPerms cat [n]; 


end if; 
end for; 
return NPerms; 


end function; 


Percent := procedure(curr, total) 
percent:= 100.00*curr/total; 
printf ”%.20%%”, percent; 


end procedure; 


FindDCRelations := function(tset, tset2) 
perm:= TPerm(tset ); 


perm2 := TPerm(tset2); 


de := FindDCGroupNumber(DC, perm2, IN); 


Sir aes 
sep:=” 
n”; 
cur:= 0; Total := #INx«x#IN; 


for m,n in IN do 
cur:=cur+l; 


” 


printf 
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sep; 


cat CodeToString (13) ; 
Percent (cur , Total) ; 


if perm eq m*perm2°n then 


str:= str cat TStr(tset) cat ” =” cat Sprint (InWord (m) ) 
cat TStr(tset2) cat ”*” cat Sprint (InWord(n)); 

str:= str cat "\n” -cat sep; 

end if; 

end for; 


return str; 


end function; 


InverseIndex:= function (Index) 
for i in [1..24] do 
if ts[Index]*—-1 eq ts[i] then return i; 
if ; 
end for; 


end function; 


SplitT:= function (tsIndex) 
for n in N do 
if 7°n eq tsIndex then 
return [1,19]*n; 
end if; 


end for; 
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end 
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return [0,0]; 


end function; /* SplitT(2); returns [20,14] Fo 


t20t14 «/ 


Reduce2Ts:= function(tsIndexl , tsIndex2) 
if tsIndexl eq 0 and tsIndex2 eq 0 then return [0]; 
end if; 
if tsIndexl eq 0 then return [tsIndex2]; end if; 
if tsIndex2 eq 0 then return [tsIndex1l]; end if; 
for i in [1..24] do 
if ts[tsIndexl]*ts[tsIndex2] eq ts[i] then 
return [i]; end if; 
if ts[tsIndex1l]*xts|[tsIndex2] eq ts[i]*5 then return [0]; 
end if; 
end for; 
return [tsIndexl, tsIndex2]; 


end function; 


ReduceTs:= function(Tset ) 
steps:=|Tset |; 
OK:= true ; 
while OK do 
size:=#Tset ; 


for i in [1..size] do 


j:=itl; 
OK:= false ; 
if j le size then 
r:= Reduce2Ts(Tset [i] ,Tset[j]) ; 
if #r eq 1 then 
Teet [i= xr]; 
Tset:=Remove(Tset, j); 
steps:= steps cat [Tset ]; 
OK:= true ; 
break ; 
end if; 
end if; 
end for; 
end while; 
return steps; 


end function; 


Word2NPerm:= function(letters ) 
seq := Eltseq(letters); 
p:= Id(N); 
for j in seq do 
if j eq 1 then p:=px*xx; end if; 
if j eq —1 then p:=px*xxx*—1; end if; 


if j eq 2 then p:=pxyy; end if; 
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if j eq —2 then p:=pxyy°—1; end if; 
end for; 
return p; 


end function; 


TryToReduce3tol:= procedure(Indexl , Index2, Index3 ) 


for n in N do 
if [Indexl, Index2, Index3] eq [17,14,19]*n then 
GetStringT ([Index1 , Index2, Index3 
]) cat ” = ("cat GetStringT 
Crh PhO) ea bi: CaS print 
(word(n)) 
FindEquivalentRelations (|[Indexl , Index2, Index3] ,[16]*n); 
n; sep; 
end if; 
if [Indexl, Index2, Index3] eq [21,6,23]*n 
then 
GetStringT ([Index1 , Index2, Index3 
\) ¢at- ? = (eat. GetStringT 
( (21 46.23). Cat 7°" eat Sprint { 


word(n)) ; 
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FindEquivalent Relations ([Indexl , Index2, Index3] ,[8]*n); 
n; sep; 
end if; 
end for; 


end procedure; 


/*Proofs DCE using magma */ 

WW:= Vy *XX* XX} 

/* Proof of addition relation w4t24t17t14t19 = ex/ 
f(y*x*x) “4ets[24]*ts[17]*ts[14]*ts [19]; /* Id(G1) */ 
/* Proof of addition relation w4t21t6t23t20 = ex/ 

f (y*x*x) “4ets[21]* ts [6]* ts [23]*ts[20]; /*Id(G ) */ 


/eLemma 1: t24t17 = w2t7t2*/ 

ts[24]*ts[17] eq f(y*xx*x)*2*ts[7]*ts[2];  /* true */ 
/* Lemma 1 results x/ 

for n in N do 


2 cat 


”Conjugating Lemma 1 by cat Sprint (1) cat? => 
GetStringT ([24,17]°n) cat ” =” cat Sprint (word ( (ww 2) 
“n)) cat GetStringT([7,2]*n) cat ”.”  ; 


end for; 


/* Lemma 2 results x/ 


for n in N do 
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” 


”Conjugating Lemma 2 by cat: Sprint (i) cai! = at, 
GetStringT ( (21 :6|°n) eat? = cat Sprint (word ( (ww 2) * 
n)) cat GetStringT([8,11]*n) cat ”.”  ; 


end for; 


/xLemma 2: t21t6 = w2t8tllx*/ 


ts[21]*ts[6] eq f(y*x*x)*2*ts[8]*ts[11]; /* true x«/ 


/*Derived from Lemma 1 */ 


TPerm([24,17,14]) eq f(yxx*xx)*2«ts[7]; /*x true «/ 


TPerm([15,24,17]) eq f(y*x*xx)°2*ts[2]; /* true */ 


TPerm 


( 
( 

TPerm([7,2,5]) eq f(y*x*x)*4*ts [24]; /* true */ 
([16,7,2]) eq f(yaxax) “dts [17]; /* true «/ 
( 


TPerm({17,14,19]) eq f(yxx«x)*2«ts[16]; /*x true */ 


/xProof Nt1t2 [sls -aeg 


/*xfor i in [1..24] do FindEquivalentRelations ([1 ,2] ,[i]); 


end for;  */ 
SplitT (1); 
SplitT (2) ; 
FindEquivalentRelations([{1,2], [5,15,4,14]); 
FindEquivalentRelations([1,2], [16,8,3,4,14]); 
FindEquivalentRelations([1,2], [1,17,24,5,14]); 
FindEquivalentRelations([1,2], [12,7,23,9,18]); 


452 


FindEquivalentRelations([1,2], [2,2,15,9,18]); 
FindEquivalentRelations([1,2], [20,21,18]); 


FindEquivalentRelations([{1,2], [6]); 


/*Derived from Lemma 2x/ 


TPerm.( (21,6 93).). eq: LG eexx Oe ts (Sli. fe tre ay 

TPerm({10,21,6]) eq f(y*xx«x)*2«ts[11]; /*x true */ 

TPerm({8,11,18]) eq f(y*xx«x)*4*ts[21]; /* true */ 

TPerm([13,8,11]) eq f(y*x*x)*4«ts [6]; 

EquivalentCosets([1,3]); /* [[ 1, 3 ], [: 20: “i. [ 
i dep ale (cee ae [8.208 jz (ee ete 

ie Teoh. [ 19, 12 ]] «/ 
/* Lemma 2 results x/ 
for n in N do 
GetStringT ([21,6]°n) cat ” =” cat Sprint (word (ww n) ) 

cat GetStringT([8,11]°n) cat ”, conjugating by” cat 
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Sprint(n) cat 


end for; 


/*xLemma 3: t1t2 = x—2t16 Results x/ 
for n in N do 


Getstring ) (|1.2|" nm) eat PS seat Sprint (word ((xx*—2)*n 
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)) cat GetStringT([16]*n) cat ”, conjugating by” cat 
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Sprint(n) cat 


end for; 
/*Right Coset already proven to be [AeA] Rh 
RCs14:= [ [1, 20], [1,10], [1,18] , [1,17], [1,15] , [1,4], 


gg Ae: Peres Ws (ie a ° Ud 
for n in N do 
if [17,19]*n in RCsl4 then [17,19|]*n, n; end if; 
end for; 


/* Double Cosets [1,4] */ 


/* Isomorphic Types */ 


(eas =0s be =07 c= 0304-6206 f= 4s 

OG<x ,y ,t >:=Group<x,y,t|x*5,y°2,(x°-lxy) 74,(x*y*x*—Q*y*x) °2, 
tbs: (tex Qeyexty at. (yexja tt 2) (Cyexey yet (x Asx =7) 
7D) ay (yee Det) bg (yar Det 1). eS nye” 2et bye 2)" 
dy (ese 2 2a 

Of ,OG1, Ok:= Coset Action (G, sub<G|x,y>);*/ 


G<x ,y,t>:=Group<x,y,t|x°*5,y°2,(x°—l*y) “4, (x*y*x*—2*y*x)°2,t 
“D) (hys 2eyexay) st (yee) 0 2 yee oat (yew 2) a yx 
“2k 2) ass 


f ,G1,k:=CosetAction(G, sub<G|x,y>); 
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Gl; 

CompositionFactors (G1) ; 
NL:= NormalLattice (G1) ; 
NL; 


for i in [1..4#NL] do 
if IsAbelian(NL[i]) then 


IN:=sub<GI1| f(x) ,f(y)>; 


#G1, #NL[4] , #G1/#NL[4]; 
/* NL[4] is normal in Gl but there is no normal subgroup of 


order 2. This means that Gl = NL[4]:2 x/ 


/* 
Finitely presented group on 2 generators 
Relations 

$.1°2 = Id($) 


$.2°5 = Id($) 
($.2 « $.1 * $.2 » $.1 * $.2 % $.1 * $.2°-1 * $.1 »* §$ 
p2)*2-= Td (8) 


(S.2 ie B21 2H) waa eo D Bd abd ee De $ 


.2)°2 = Id($) 


$.2°-1 *« $.1 * $.2°-1 *« $.1 * $.2 * $.1 * $.2 * $.1 x §$ 


2°-2 *« $.1 « $.2 * $.1 * $.2 « $.1 « $.2°-1 «* $.1 x 


2°-1 * $.1 = Id($) 


2 * $.1 *« $.2°-2 « $.1 * $.2°2 « $.1 *« $.2°-2 x $.1 x 


$.2°-2 x« $.1 * $.2°-1 x $.1 * $.2°-1 * $.1 * $.2°-2 


*k 


$.1 * $.2°-2 * $.1 * $.2 = Id($)x/ 


q, ff:=quo<G1|NL[4] >; 

q; 

FPGroup(NL[4]) ; 

T:= Transversal(G1,NL[4]) ; 


T; 

B:= G1!(2, 5)(3, 9)(4, 13)(6, 10)(7, 11)(8, 
35)(17, 39)(18, 41)(19, 43)(20, 45) (21, 
53)(26, 30)(27, 48)(28, 37)(29, 47)(31, 
57)(36, 58)(38, 46)(42, 55)(49, 51) (56, 


NL4:=NormalLattice (NL[4]) ; 
NLA; 


99) (12. Leys, 
25) (23, 52) (24, 
32) (33, 40) (34, 
59) ; 
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q2 , f£f2 :=quo<NL [4] | NL4[3] >; 
q2 ; 


CompositionFactors(q2); 


/*Permutation group q acting on a set of cardinality 6 
Order = 60 = 2°2 * 3 * 5 
(1, 2)(3, 4) 
(24.985 6 Oy aa ey 
CompositionFactors(q2);/* 
G 
| Alternating (5) 
1x / 
FPGroup(q2) ; 


/*Finitely presented group on 2 generators 


Relations 
$.1°2 = Id($) 
$2) = Td (3) 


($.1 * $.2°-1)°3 */ 
/* We know Alt (5) =< x°2, y*5, (x*y*-1)°3> */ 


/* Alt5<x,y> := Group<x,y| x°2, y*5, (y°—2*x)*3>; 
fa ,Ga, ka:=CosetAction(Alt5 ,sub<Alt5 |Id(Alt5)>); 
Alt5b<x,y> := Group<x,y| x°2, y°5, (x*xy°-1)°3>; 

fab ,Gab, kab:=CosetAction ( Alt5b ,sub<Alt5b|Id(Alt5b)>); 
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IsIsomorphic(Ga, Gab); */ 


/* NL[4] s  NL4[3] is normal in NL[4] and NL4[3] is a 
subgroup of order 60. This means that NL[4] = NL4[3] 
q2*/ 
GG<a,b,c,d>:=Group<a,b,c,d | a°2, b°5, (axb*—-1)°3, c°2, d 
"Bs Cerd=1)°33 (ace), (asd) (Bye liso (bed) >: 
f2 ,G2,k2:=Coset Action (GG, sub<GG| Id (GG) >) ; 


t:=IsIsomorphic (NL[4] ,G2) ; 
t;/* True */ 
FPGroup (G2) ; 


/* Isomorphic type of Gl = 2:(Alt(5))2. x/ 


FPGroup (NL [4] ) ; 

GGGka ,b>:= Group<a,b | 2a BOs. Woe Be De a ee, 
* b°-1 * a * b)*2, (b * a * b°-1 * a * b *¥ a x b* a * b 
)*2, 

b*-1 * a * b*°-1 * a * b * a * b * a * b°-2 * a x b * a * bd 
* a * bo-l * a * 

b*-1 * a, b * a * b°-2 * a * b°2 * a * b°-2 * a x b°-2 
* a * b°-l * a * b°-l * a * bD°-2 x 


a * b°-2 * a * b>; 
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f3 ,G3,k3:=CosetAction (GGG, sub<GGG| Id (GGG) >); 
IsIsomorphic (GGG, DirectProduct(Alt(5), Alt(5)); 


q2, ff2:=quo<NL [4] | NL4/[3] >; 

q2; 

T:= Transversal (NL[4], NL4[3]) ; 
f£2(T[2]); 

ff2(T[3]); 


A:=T [2]; 

A; /*(1, 14)(2, 56)(3, 41)(4, 34)(5, 59)(6, 45)(7, 22)(8, 
11)(9, 18)(10, 20)(12, 46)(13, 57)(15, 35)(16, 38) (17, 
23) (19, 

43)(24, 42)(26, 33)(27, 37)(28, 48)(29, 58)(30, 40) (31, 
49) (32, 51)(36, 47)(39, 52)(50, 60)(53, 55)*/; 

B:=T [3]; 

B; /*(1, 20, 38, 24, 32)(2, 51, 37, 33, 53)(3, 43, 16, 59, 
8)(4, 17, 25, 22, 10)(5, 44, 58, 57, 6)(7, 56, 50, 13, 
30) (9, 

47, 40, 42, 46)(11, 39, 27, 54, 12)(14, 31, 52, 29, 28) 
(15, 41, 21, 49, 60)(18, 26, 48, 34, 19)(23, 55, 45, 
35, 

36) */ 
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A in NL4[3]; 
B in NL4[3]; 


bol ,mp := IsIsomorphic(NL[4] ,G2); /* True */ 
bol; /* True x«/ 
InvMap:= Inverse (mp) ; 


InvF2:=Inverse(f2); 


A:=InvMap(f2(a)); 


( 
B:=InvMap( f2 (b) ) 
(AxB*—1)*3 


’ 


Generators (NL4[3]) ; 
C:= G1!(1, 53)(2, 39)(3, 59)(4, 22)(5, 8)(6, 38)(7, 32) (9, 
12)(10, 57)(11, 60)(13, 21)(14, 52)(15, 51)(16, 56) (17, 


33) (18, 48)(19, 36)(20, 24)(23, 37)(25, 40)(26, 58) 
(27, 43)(28, 54)(29, 35)(30, 42)(31, 44)(34, 47) 
(41, 

55) (45, 50)(46, 49); 


D:=G1!(1, 55, 32)(2, 57, 9)(3, 18, 15)(4, 59, 41)(5, 30, 
12)(6, 37, 50)(7, 54, 8)(10, 47, 53)(11, 17, 25)(13, 34, 
19)(14, 49, 24)(16, 46, 43)(20, 60, 48)(21, 52, 22) 
(23, 44, 39)(26, 35, 40)(27, 36, 31)(28, 51, 29) 


(33, 56, 
38) (42, 58, 45); 


/* We want Order(D) = 5 and (D°—2«C)*3 = Id(G1). 


find a different way. x/ 


D:=CxD; 

D; 

Order (D) ; 
(CHD a4) OS, 
C in NL4[3]; 
D in NL4[3]; 


Temp:= sub<G1| A,B,C,D,E>; 


IsIsomorphic(Gl, Temp) ; 


/*C:=InvMap(f2(c)); 
D:=InvMap( f2 (d) );*/ 


t:=IsIsomorphic(sub<G1| C, D>, NL4[3]) ; 


t; 


Sch:=SchreierSystem (GG, sub<GG| Id (GG) >) ; 


Alt5SqrWord:= function (Perm) ; 
for i in [2..4#GG] do 
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We need to 


P=/1d (Gl) 1 im ec # Seka) |: 
tor: 7 an deoge eh [1] \-do 


if Eltseq(Sch[i])[j] eq 1 then P[j]:=A; end 
if Eltseq(Sch[i])[j] eq —1 then P[j]:=A*-1; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=B; end 
if Eltseq(Sch[i])[j] eq —2 then P[j]:=B*-1; 
if Eltseq(Sch[i])[j] eq 3 then P[j]:=C; end 
if Eltseq(Sch[i])[j] eq —3 then P[j]:=C*-1; 
if Eltseq(Sch[i])[j] eq 4 then P[j]:=D; end 
if Eltseq(Sch[i])[j] eq —4 then P[j]:=D°-1; 
end for; 

PP:=Id (G1) ; 


for k in [1..#P] do 

PP:=PP*eP[k]? 

end for; 

if Perm eq PP then Ret:=Sch[i]; end if; 
end for; 

return Ret; 


end function; 


Sch:=SchreierSystem (GG, sub<GG| Id (GG) >) ; 
PermToWord:= function (Perm) 
for w in Sch do 


seq := Eltseq(w); 


if; 
end 
if; 
end 
ire 
end 
ites 


end 


if: 


its 


ifs 


if; 
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p:= Id(Gl); 
for j in seq do 
if j eq 1 then p:=pxA; end if; 

if j eq —l1 then p:=pxA*°—1; end if; 
if j eq 2 then p:=px*B; end if; 
if j eq —2 then p:=px*xB°—1; end if; 
if j eq 3 then p:=px*C; end if; 
if j eq —3 then p:=pxC*—1; end if; 
if j eq 4 then p:=pxD; end if; 
if j eq —4 then p:=pxD°—1; end if; 

end for; 

if Perm eq p then return w; end if; 
end for; 
end function; 


PermToWord(A 


PermToWord(B) ; 


’ 


PermToWord (D 


’ 


(A) 
(B) 
PermToWord(C) ; 
(D) 
(E) 


PermToWord(E) ; 
Alt5SqrWord (A’E) ; 
Alt5SqrWord (B’E) ; 
Alt5SqrWord (C’E) ; 
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Alt5SqrWord (D’E) ; 


PermToWord(A*E); /x a 6a #7 

PermToWord(B*E); /* b*’e =a * b*’-1 * a * b * a * b*°-1_ x/ 
PermToWord(C*E); /* c°e = c *« d°2 * c *« d*-2 * c x/ 
PermToWord(D°E); /* d°e = d°2 * ¢ * d°-2 * c « d ¥/ 


GGGea., b;.¢,d.,e>:=Group<a,b,c,d,e | a°2, b°5, ¢°2, d°5, (axb 
“—1)°3, (c*xd*-1)*3, (a,c), (a,d), (b,c), (b,d), e*°2, ave 
=a, b°’e =a * b°-1l * a * b * a x b°-1, c°e = c «x d’2 
* ¢ * d°-2 * c, d°e = d°2 * c *« d°-2 * c « d >; 

f3 ,G3,k3:=Coset Action (GGG, sub<GGG| Id (GGG) >) ; 

IsIsomorphic(Gl, G3); /* true x«/ 

/* Isomorphic type of Gl = 2:m(Alt(5))2. */ 


/*xIsomorphic type of Nx/ 


S:= Sym(24) ; 

xx:=S!(1,2,4,18,9) (3,13,14,16 ,24) (6,21,7,8,10) 
(1251551:9,90,225. 

yy:=S!(1,21) (2,5) (3,19) (4,6) (7,15) (8,11) (9,13) (10,12) 
(14,17) (16 ,18) (20,23) (22,24); 


N:=sub<S|xx,yy>; 


FPGroup (N) ; 
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NN«x , y>:=Group<x,y|x°5, y°2, (x°-l * y)*4, (x * y * x°-2 * 


y * x)°2 >; 


CompositionFactors(N) ; 
NL:= NormalLattice (N) ;/* 


Normal subgroup lattice 


[3] Order 120 Length 1 Maximal Subgroups: 2 
[2] Order 60 Length 1 Maximal Subgroups: 1 


[1] Order 1 Length 1 Maximal Subgroups: / 


CompositionFactors(NL[2]) ; 
q, ff:=quo<N|NL[2] >; 

q; 

T:= Transversal(N,NL[2]) ; 
ff (T[2}) ; 

K:=T [2]; 


Ka ge Chee 29) (29 SIS y- LOA OCT PES 5. TATE Os Ta Ls, 


12)(14, 17)(16, 18)(20, 23)(22, 24)x/ 


Albi j= Group<r,j)|| “2° 2. Oe Ley eH) 3S 
fa ,Ga, ka:=CosetAction(Alt5 ,sub<Alt5 |Id(Alt5)>); 
bol ,mp:= IsIsomorphic(Ga, NL[2]) ; 
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/x true «/ 

I:= mp(fa(i)); 

I; /* (1, 17)(2, 20)(3, 21)(4, 18)(5, 7)(6, 10)(8, 14)(9, 
15)(11, 19)(12, 22)(13, 23)(16, 24) «/ 


J:=mp(fa(j)); 
Ife “Pe OBO AF, T9),. Td,! 18° 194 15) (3s By Oy Gs 
13)(5, 24, 7, 21, 14) */ 


Sch:=SchreierSystem(AIt5 ,sub<Alt5|Id(Alt5)>); 


/* a faster version of word */ 
word:= function (Perm) 
for w in Sch do 

seq := Eltseq(w); 

p:= Id(N); 

for j in seq do 

if j eq 1 then p:=pxI; end if; 

if j eq —1 then p:=pxI*—1; end if; 
if j eq 2 then p:=pxJ; end if; 
if j eq —2 then p:=pxJ°—1; end if; 

end for; 

if Perm eq p then return w; end if; 


end for; 
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end function; 


word( I°K); Je 47k: G°o-e fe GPS eT ee, 
Enger ier ae Ce ® ees 

IxJ*—-2«I eq (J°1)°3; 

IxJ°—2*xI eq ((J°1)*-1)*2; 

word(s i kee ee ae 

a ee a ae te 

word ((J°K) “(I*=1)); 


GOs 2) k= Gronpsi dig iyo |) 2 eG. Ie a Se ke, a 
bei. OO ci GO le Gees (a AR Oy a 

{7 ,G7,k7:=Coset Action (G6, sub<G6| Id (G6) >) ; 

IsIsomorphic (N,G7) ; 


word(J*(KxI)); 

Gt<i3 i 5kS= Groups ty] k |) 22. es Prey Kl) Sy, kee eT 
ys oo? ae ee he, TO Garp aan & 

{7 ,G7,k7:=Coset Action (G6, sub<G6| Id (G6) >) ; 

IsIsomorphic (N,G7) ; 


/e N ~ Alt(5):2 x/ 
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